Размещено 5 лет назад по предмету
Информатика
от hasanovaazalia
Помогите,в чем ошибка? пишет встречено 'then' ,а ожидалось ';'
program n_8;
var x,a,b,c,z:integer;
begin
writeln('Нахождение наибольшего числа');
write('Введите значения a,b,c,z>>');
readln(a,b,c,z);
x:=a; if(a<b) then x:=b else(b<c)then x:=c else(c<z) then x:=z writeln ('Наибольшее число 'x= ', x') end.