Program ex;
var k,h,m: integer;
begin
write('Введите k: ');
readln(k);
h:=k div 3600;
m:=(k - h)div 60;
write('It is ',h,' hours ',m,' minutes');
end.
Внешняя память. Ну мне так кажется;)
БДВАГЖЕ
Протокол://сервер/файл
//PascalABC.Net v3.1
var n:integer;
begin
readln(n);
if n mod 2 = 0 then n:=n*4 else n:=n+1;
writeln(n);
end.