{ 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.