Паскаль Напишите программку, которая 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]gt;max then max:=A[i];

if A[i]lt;min then min:=A[i];

end;

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

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

writeln(наибольший элемент =,max);

end.