Программа на снимке, чтобы определить целое число от деление нужно использовать div
Function reverse(s:string):string;
var s1:string;
i:integer;
begin
for i:=1 to length(s) do
s1:=s[i]+s1;
reverse:=s1;
end;
var s:string;
begin
readln(s);
s:=reverse(s);
writeln(s);
<span>end.</span>
Смотря на кого ты будешь учиться/учишься.
//PascalABC.NET
var i:integer;
begin
for i:=1 to 10 do
writeln(i,'*6=',i*6);
<span>end.</span>
N=int(input())
h=n//3600 #кол-во часов
n=n%3600 #остаток после вычета часов
m=n//60 #кол-во минут
s=n%60 #остаток после вычета минут - секунды
h=str(h)
m=str(m)
if len(m)==1:
m='0'+m #отступ 4 пробела от начала строки
s=str(s)
if len(s)==1:
s='0'+s #отступ 4 пробела от начала строки
print(h+':'+m+':'+s)