Klavyeden girilen 5 kişiye ait yaşların toplamını bulan program.

uses crt;
   var
   toplam,i,yas:integer;
   isim:string;
   begin
   clrscr;
   for i:=1 to 5 do begin
   write(‘yaşı gir:’);readln(yas);
   toplam:=toplam+yas;
   end;
   writeln(‘toplam:’,toplam);
   readln;
   end.

Linkback: https://www.buyuknet.com/klavyeden-girilen-5-kisiye-ait-yaslarin-toplamini-bulan-program-t8600.0.html