Помогите,в чем ошибка? пишет встречено '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 else(b else(cwriteln ('Наибольшее число 'x= ', x')
end.