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

program chisla;

var

A:array [1 ... 10] of integer;

i, min, max, sum:integer;

begin

sum:=0;

for i:=1 to 10 do

begin

writeln ('введите число');

readln (A[i]);

sum:=sum+A[i];

end;

min:=A[1];

max:=A[1];

for i:=1 to 10 do

begin

if A[i]>max then max:=A[i];

if A[i]
end;

writeln ('сумма введенных чисел = ', sum);

writeln ('минимальный элемент = ', min);

writeln ('максимальный элемент = ', max);

end.