Question

Верно ли я ввела?
program Z_2;
Var a, b, c:integer;
Begin
read (a,b,c);
if (a>b) and (a>c) then
write ('наибольшее',a) else
if (b>a) and (b>c) then
write ('наибольшее',b) else
if (c>a) and (c>b) then
write ('наибольшее',c);
end.
Мне выдает, что 4 строка имеет неверный формат
может, что-нибудь неверно?