You need to write a program in PascalABC. Enter n numbers, find the maximum two-digit among them.

program zz1;
var a, n, i, max: integer; // set variables of integer type
begin
write (‘enter n’); // enter the number of numbers from the keyboard
read (n);
for i: = 1 to n do // organize a loop for n repetitions
begin
read (a); // enter the next number
if (a> 9) and (a <100) then // check if the number is two-digit
if a> max then max: = a; // check if the number is greater than the maximum, then write it to the maximum
end;
write (‘maximum two-digit number =’, max); // display the answer
end.



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.