1)
var
n:longint;
begin
readln(n);
writeln(n div 60));
end.
2)
var
n,m,i,j:longint;
begin
readln(n);
m:=n mod 10 *10 + n div 10;
writeln(n,'+',m,'=',n+m);
end.
3)
var
a,b,c,d:longint;
begin
readln(a,b,c,d)
; dec(c,a);
dec(d,b);
if d<0 then
begin
dec(c);
d:=100 -abs(d);
end;
writeln(C,' рублей ',d,' копеек');
end.
4)
var
a:longint;
begin
readln(a);
if odd(a) then inc(a) else inc(a,2);
writeln(a);
end.
Если что то не работает напиши .