Create a program that will enter 10 numbers and search for the maximum number among these numbers.

Program t2;
var i: chislo, max: integer;
readln (max);
for i: = 2 to 10 do begin
readln (chislo);
if chislo> max then max: = chislo
end {for};
writeln (max)
You have to be careful in pascal. If you do not put a comma or some other sign in the right place, the program may show an error.

One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.