program Project5; {$APPTYPE CONSOLE} label 1,2; var F,N:integer;H:real; begin 1:writeln('Vvedit skilki tryvae odna seriya'); readln(F); if f<=0 then begin writeln(F,' hvylyn ne isnue'); goto 1;end else 2:writeln('Vvedit kilkist seriy'); readln(N); if N<=0 then begin writeln(N,' seriy ne isnue'); goto 2;end else H:=F/60*N; writeln(H:4:3); readln; end.