Program Max_Min__of_5;
var A: array [1..5] of integer;
I, max, min: integer;
Begin
for i:=1 to 5 do
begin
writeln (‘введите ‘, i ,’ число: ’);
read (A[i]);
end;
max:= A[1];
min:= A[1];
for i:=2 to 5 do
begin
if A[i] > max than max:= A[i];
if A[i] < min than min:= A[i];
end;
writeln (‘максимальне =’ , max);
writeln (‘мінімальне =’ , min);
End.