Составить программу, которая будет вводить 10 чисел и искать максимальное число среди этих чисел.

Program t2;

var i:chislo, max:integer;

begin

readln (max);

for i:=2 to 10 do begin

readln (chislo);

if chislo>max then max:=chislo

end {for};

writeln (max)

end.

В паскале нужно быть внимательным. Если не поставить в нужном месте запятую или какой - то другой знак, программа может показать ошибку.