uses crt;
var n,m,t,A,K: byte;
Begin
clrscr;
Writeln('Vvedite kol-vo kartofela` na skovorotke : ') ;
readln(n);
writeln ('Vvedite vrema` prigotovlenia` : ');
readln(t);
writeln('Vvedite kol-vo kartofela` : ');
readln (m);
K:=0; {конечное время}
A:=0; {количество порций картофеля}
If m<=n then begin K:=2*t; writeln('vremya= ',K); end;
If n<m then
begin
If (M mod N) = 0 then
A:=trunc(m/n)
else A:=trunc(m/n)+1;
K:=2*t*A;
writeln('vremya= ',K);
end;
readkey;
end.