37 mod 2 будет равно 1.
151 mod 2 будет равно 1.
Program n1;
var n,m,d:integer;
function NOD(n,m:integer):integer;
begin
while n<>m do if m>n then m:=m-n else n:=n-m;
nod:=m;
end;
begin
write('введите числитель: ');
readln(n);
write('введите знаменатель: ');
readln(m);
writeln('введена дробь: ',n,'/',m);
d:=nod(n,m);
n:=n div d;
m:=m div d;
writeln('сокращенная дробь: ',n,'/',m);
<span>end.</span>
Var x,n,a,b,c,y:integer;
begin
readln(x);
a:=0;
b:=0;
c:=0:
while x>0 do
begin
n:=x mod 10;
if n>a then
begin
c:=b;
b:=a;
a:=n
end
else
if n>b then
begin
c:=b;
b:=n
end
else c:=n;
x:=x div 10
end;
y:=a*100+b*10+c;
writeln(y)
end.