10 SAYIDAN EN BÜYÜĞÜNÜ VE EN KÜÇÜĞÜNÜ VEREN PROGRAM


uses crt;
var
   sayi,enb,enk:longint;
   i:byte;
begin
     clrscr;
     i:=0;
     while i<10 do
     begin
          i:=i+1;
          write(i,' . SAYIYI GIRIN : '); readln(sayi);
          if i=1 then
          begin
               enb:=sayi;enk:=sayi;
          end;
          if sayi<enk then enk:=sayi;
          if sayi>enb then enb:=sayi;
     end;
     writeln('EN BšYšK SAYI = ',enb);
     writeln('EN Kš€šK SAYI = ',enK);
     readln;
end.