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

Отформатированный текст работающей программы 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.

Program divisors; //вообще ничего не делает(аля название программы) var num,divisor,i,sum: longint; //описываем переменные типа longintbegin//начало программы write('vvedite chislo: '); //выводим текст readln(num); //считываем число write('vvedite delitel: '); //выводим текст read(divisor); //считываем заданное число(будем использовать при поиске делителей больше заданного) sum: =0; //зануляем переменную(изначально равна нулю, но на всякий случай ; ) от с++)    for i: =1 to num do //цикл от 1 до числа(можно оптимизировать идя до корня из num)    begin//начало цикла      if num mod i = 0 then//если на очередном шаге остаток от деления числа на i равен нулю      begin//начало условия        write(i,' '); //выводим делитель        sum: =sum+i; //суммируем      end; //конец условия    end; //конец цикла    writeln(); //переходим на следующую строку    writeln(sum); //выводим сумму    for i: =1 to num do//аналогично выше    begin      if (num mod i = 0) and (i mod 2 = 0) then // если число делитель и делится на 2      begin        write(i,' ');       end;     end;     writeln();     for i: =1 to num do    begin    if (num mod i = 0) and (i mod 2 = 1) then // не делится на 2    begin        write(i,' ');     end;     end;     writeln();     for i: =1 to num do    begin    if (num mod i = 0) and (i> divisor) then // больше заданного числа    begin        write(i,' ');     end;     end; end.//конец программы