Решение во вложенном файле
Var h1,m1,s1,h2,m2,s2,t:integer;
begin
write('Start: ');
readln(h1,m1,s1);
write('Finish: ');
readln(h2,m2,s2);
t:=(h2*3600+m2*60+s2)-(h1*3600+m1*60+s1);
writeln(t);
end.
Пример:
<span>Start: 11 20 30
Finish: 13 15 40
6910</span>
<span>в разделе Программы или Приложения Стандартные Блокнот или в поисковике набрать</span>
Это и к файлу и к папке относится:
1.Копировать
2.Вставить
3.Вырезать
4.Открыть
5.Удалить
6.Переименовать