10 SAYIDAN EN BÜYÜĞÜNÜ BULAN PROGRAM

uses  crt;
var
   toplam,a:integer;
   i:byte;
begin
   toplam:=0;
   for i:=1 to 10 do
   begin
       write(i,'.SAYIYI  GIRINIZ:'); readln(a);
       toplam:=toplam+a;
   end;

   writeln('GIRILEN  10  ADET  SAYININ  TOPLAMI:',TOPLAM);
end.