Question

Помогите,в чем ошибка? пишет встречено '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.

Answer 1

Сразу говорю будет считать неправильно, если делаешь проверку после else
нужно писать else if ...

Answer 2

пример сравнения двух чисел
if aelse if a>b then max:=a

Answer 3

спасибо,сейчас попробую исправить