Umiestnenie súboru www.TrSek.com/cover/benkovic/plat.pas{ PLAT.PAS Copyright (c) Jan Benkovic }
{ Vypocita priemerny plat zo zadanych platov za jednotlive mesiace. }
{ }
{ Datum:12.03.2000 http://www.trsek.com }
program priemerny_plat;
uses crt;
var
a : byte;
b,plat : longint;
priemer : real;
begin
clrscr;
for a:= 1 to 12 do
begin
Write('Napis plat v ',a,' mesiaci : ');
Readln(plat);
b:=b+plat;
end;
priemer:=b/12;
Writeln('Priemerny plat je ',priemer:10:10);
readkey;
end.