Localize file
www.TrSek.com/cover/raptor/praca.pas
{ PRACA.PAS }
{ Program vypocita vykonanu pracu. }
{ }
{ Author: RaptoR (Juraj Danis) }
{ Date :19.1.2009 http://www.trsek.com }
program praca;
uses crt;
var w,f,s:real;
c:char;
BEGIN
repeat
clrscr;
writeln('PROGRAM VYPOCITA VYKONANU PRACU');
writeln('-------------------------------');
writeln;
writeln('Zadaj drahu');
readln(s);
writeln;
writeln('Zadaj silu');
readln(f);
clrscr;
w:=f*s;
writeln('-------------------------');
writeln('|VYKONANA PRACA = ',w:2:2,'J |');
writeln('-------------------------');
writeln('Opakovat vypocet? a/n');
readln(c);
until c='n'
end.
Copyrigth by Zdeno Sekerak 2007,
http://www.trsek.com