Народ30 .
в бригаде, работающей на уборке сена, имеется n косилок. первая из них работала m часов, а каждая следующая на 10 минут больше, чем предыдущая. сколько часов проработала вся бригада? паскаль. программу нужно
написать либо с циклом while, либо с циклом repeat - until. заранее за .
var n,m,i :Integer;
begin
readln(n);
readln(m);
m:=m * 60;
while i<>n do
begin
m:=m+10;
i+=1;
end;
write(m div 60+' часа(ов)');
end.