var
z: integer;
begin
randomize;
z:=random (1000) -500;
writeln (z);
if z mod 3=0 then writeln (' число делится на 3')
else writeln (' число не делится на 3')
end.
Var
Zn:integer;
Begin
Zn:=2*482734;
Write(Zn);
End.
Var m,b,ost,c,result:integer;
////M<B
begin
ost:=1;
writeln ('Введите два числа');
readln(b,m);
while ost<>0 do
begin
if m>b then
begin
c:=m;
m:=b;
b:=c;
end;
ost:= b mod m;
result:=m;
b:=ost;
end;
writeln('НОД: ',m);
end.