Язык Pascal. Программирование для начинающих

В первой задаче ты просто добавляешь по 10 минут с каждой итерацией. Если внимательно прочесть задачу, то можно заметить, что каждая следующая работала НА 10 минут больше предыдущей.
Мой вариант программы без перевода в часы:

program seno;
var a,n,b,i:integer; m:real;
begin
 write('kosilok:');
 readln(a);
 write('1 rabotala:');
 readln(b);
 n:=a*60;
 for i:=1 to a-1 do
  begin
  n:=n+10;
  m:=n+m;
 end;
 write('otvet:',m:3:2,' minut');
end.