Голодный студент решил пожарить картошку .У него есть сковородка. на которой помещается n картофелин Время поджаривания картофелины с одной стороны t минут.Студент любит картошку. обжаренную с двух сторон .Определите минимальное время приготовления m картофелин — Pascal(Паскаль)

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.