Я бы сначала помотрел на ссылку и скорее всего не стал бы заходить, но если приспичит то скачаю виртуалку и зайду
Поставь лучший ответ очень надо плз)
Надо нажать на ок и стоп одновременно и держать пока не заработает.
Var
h0, m0, h1, m1, h2, m2: integer;
begin
readln(h0, m0, h1, m1);
m0 += h0 * 60;
m1 += h1 * 60;
m2 := m0 + m1;
h2 := (m2 div 60) mod 24;
m2 := (m1 + m0) mod 60;
h0 := h2 div 10;
h1 := h2 mod 10;
m0 := m2 div 10;
m1 := m2 mod 10;
write(h0, h1, ':', m0, m1);
end.
{Эта рабочая 100% :3}
var n: string;
procedure foo(str: string);
begin
writeln(str);
end;
function foo1(str: string): string;
begin
foo1:= str;
end;
begin
foo('I am a procedure');
n:= foo1('I am a function');
writeln(n);
end.