program massiv;
 uses crt;
 var A:array  [1..5] of integer ;
     i:integer;
     s:integer;
     t:integer;
     max:real;
     min:real;
     n:integer;
begin
clrscr;
for i:=1 to 5 do
begin
write ('M,N=>>');
readln (A[i]);
end;
max:=A[1];
t:=1;
for i:=1 to 5 do
if A[i]>max then
begin
max:=A[i];
t:=i;
end;
min:=A[1];
t:=1;
for i:=1 to 5 do
if A[i]<min then
begin
min:=A[i];
t:=i;
end;
writeln ('Исходный массив:');
for i:=1 to n do
write (A[i] , '');
writeln;
writeln ('Максимальный элемент последовательности равен',max:2:2);
writeln ('минимальный элемент последовательности равен',min:2:2);
readln;
end.