Временной интервал....

 Program FFF;
var n,a,i: integer;
m: real;
begin
Writeln ('введите кол-во косилок');
Readln (n);
Writeln ('сколько часов проработала вторая косилка?');
Readln (m);
For i:=1 to n do
m:=m+0.10;
Writeln ('otvet',m);

m:=m+1/6;

v:=m*n;//все поровну
for i:=1 to n do
v:=v+(i-1)/6;//добавлям по 10 минут на каждую

 Program FFF;
var n,a,i: integer;
m, s: real;
begin
Writeln ('введите кол-во косилок');
Readln (n);
Writeln ('сколько часов проработала вторая косилка?');
Readln (m);
s := 0;
For i:=1 to n do
begin
  m:=m+1/6;
  s := s+m;
end;
Writeln ('otvet',s);

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
var
  h1, h2, m1, m2, s1, s2, x: Integer;
 
begin
  WriteLn('Vvedite nacalo vremennogo intervala:');
  Write('Chasov:');
  ReadLn(h1);
  Write('Minut:');
  ReadLn(m1);
  Write('Secund:');
  ReadLn(s1);
  WriteLn('Vvedite konec vremennogo intervala:');
  Write('Chasov:');
  ReadLn(h2);
  Write('Minut:');
  ReadLn(m2);
  Write('Secund:');
  ReadLn(s2);
  x := (h2*3600+m2*60+s2)-(h1*3600+m1*60+s1);
  Write('Proshlo ', (x div 3600), ' chasov ',
    (x div 60)-(x div 3600)*60, ' minut ', x-(x div 60)*60,
    ' secund');
  ReadLn;
end.

writeln ('ввведите время начала( часы минуты секунды отдельно)');
readln (a,b,c);
writeln (' введите время конца');
readln (x,y,z);
h:=abs(x-a); m:=abs(y-b); s:=abs(z-c);

uses crt;
var h1,m1,s1,h2,m2,s2,rh,rm,rs,ps,pm:shortint;//тип от -128 до +127
//первые часы, минуты, секунды, вторые, результат(разница) и переносы секунд и минут
begin
clrscr;
repeat
writeln('Введите первое время, часы минуты секунды:');
readln(h1,m1,s1);
until(h1 in [0..23])and(m1 in [0..59])and(s1 in [0..59]);//проверяем правильный ввод
repeat
writeln('Введите второе время, часы минуты секунды:');
readln(h2,m2,s2);
until(h2 in [0..23])and(m2 in [0..59])and(s2 in [0..59]);
if s2>=s1 then//если вторые секунды больше
 begin
  rs:=s2-s1;//вычитаем
  ps:=0;//перенос=0
 end
else//иначе
 begin
  rs:=60+s2-s1;//добавляем 60 секунд
  ps:=1;//перенос=1(его будем вычитать)
 end;
if m2-ps>=m1 then//если вторые минуты за вычетом переноса больше первых
 begin
  rm:=m2-ps-m1;//вычитаем с переносом
  pm:=0;//перенос минут=0
 end
else//иначе
 begin
  rm:=60+m2-ps-m1;добавляем 60, вычитаем с переносом
  pm:=1;
 end;
if h2-pm>=h1 then rh:=h2-pm-h1//если втрые часы с вычетом переноса больше первых
else rh:=24+h2-pm-h1;//иначе добавляем 24
write('Разница во времени=',rh,'ч. ',rm,'мин. ',rs,'сек');
readln
end.

uses
 SysUtils;