Верно ли я ввела? program Z_2; Var a, b, c:integer; Begin read (a,b,c); if (a>b) and...

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 строка имеет неверный формат
может, что-нибудь неверно?

Comments

Если все, как написано, программа ошибок не выдает

Answer 1

Отформатированный текст работающей программы

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.

Comments

Данные проще всего вводить через пробел, в конце - enter. Числа только целые. Если нужны нецелые, измените integer на real