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

Program t2 ;var i:chislo, max:integer;beginreadln(max);for i:=2 to 10 do beginreadln (chislo);if chislo>max then max:=chisloend {for};writeln(max)end. В паскале нужно быть внимательным. Если не поставить в нужном месте запятую или какой -то другой знак, программа может показать ошибку.