uses crt;
procedure p(n:integer;var min,max:real);
var i:integer;
      x:real;
begin
repeat
write('Введите натуральное число n>1 n=');
readln(n);
until n>1;
writeln('Введите 1 число:');
readln(x);
min:=x;
max:=x;
writeln('Введите ',n-1,' вещественных чисел:');
i:=0;
repeat
i:=i+1;
readln(x);
if x<min then min:=x;
if x>max then max:=x;
until i=n-1;
writeln('Минимальное число=',min:0:2);
writeln('Максимальное число=',max:0:2);
end;
var n:integer;
      x,min,max:real;
begin
clrscr;
p(n,min,max);
readln
end.

var i,n,c:integer;
a:array[1..maxint];
begin
readln(n);
for i:=1 to n do begin
    read(a[i]);
    if a[i]=4 then c:=c+1;
end;
writeln('Количество значений, равных четырём - ',c);
end.