Kód: Vybrať všetko

program Project2;

uses crt;
var poceth,nahodinu:integer;
    nasekundu,zabrigadu,zatial:real;

begin
writeln('Zadaj pocet hodin brigady');
readln(poceth);
writeln('Zadaj mzdu, platenu na hodinu');
readln(nahodinu);
zabrigadu:=nahodinu*poceth;
writeln('Za tuto brigadu zarobis: ',zabrigadu:1:1,'Sk');
nasekundu:=nahodinu/3600;
zatial:=0;
repeat
clrscr; { toto ma by bud tu alebo za delayom }
begin
writeln('Zatial si zarobil: ',zatial:3:3);
zatial:=zatial+nasekundu;
delay(1000);
end;
until zatial=zabrigadu;

readln;
end.