паскаль
Напишите программу, которая 10 раз запрашивает ввод целого числа. При завершении ввода на экран выводится сумма чисел, минимальное число, максимальное число.

Program Lana132;uses crt;const n=10;var   i,ch,max,min,sum:integer;begin  writeln('*** Alphaeus is thinking... ***');  writeln('***          OK             ***');  writeln(); writeln();  writeln('Программа запрашивает N чисел, находит их сумму, максимальное и минимальное число');  sum:=0;  write('Введите 1-e число: '); read(ch);  sum:=sum+ch;  max:=ch; min:=ch;  for i:=2 to n do    begin      write('Введите ',i,'-e число: '); read(ch);      sum:=sum+ch;      if max<ch then max:=ch;      if min>ch then min:=ch;   end;  writeln('Сумма всех чисел равна ',sum);  writeln('Максимальное число равно ',max);  writeln('Минимальное число равно ',min);end.