var
sayi,enb,k,n,enk: longint;
i:byte;
begin
clrscr;
i:=0;
writeln('kaç sayı girmek istersiniz); readln(k);
while ii:=i+1;
write(i,'.sayı girişi'); readln (sayi);
if i=1 then
begin
enb:= sayi;
enk:=sayi;
end;
if sayi < enk then enk:= sayi;

if sayi > enb then enb:= sayi;
writeln('en büyük sayı',enb);
writeln('en küçük sayı',enk);
readln;
end.