{ VYKON.PAS                                                         }
{ Program vypocita vykon.                                           }
{                                                                   }
{ Author: RaptoR (Juraj Danis)                                      }
{ Date  :19.1.2009                             http://www.trsek.com }
 
program vykon;
uses crt;
var p,w,t:real;
    c:char;
 
BEGIN
repeat
clrscr;
writeln('PROGRAM VYPOCITA VYKON');
writeln('----------------------');
writeln;
writeln('Zadaj pracu');
readln(w);
writeln;
writeln('Zadaj cas, za ktory bola praca vykonana');
readln(t);
clrscr;
p:=w/t;
writeln('------------------');
writeln('| VYKON = ',p:2:2,'W |');
writeln('------------------');
writeln;
writeln('Opakovat vypocet? a/n ');
readln(c);
until c='n'
end.