<span>Любое наглядное пособие, используемое на уроках, является моделью</span>
var a:integer;
Begin
read(a);
if a mod 3 = 0 then writeln('Делится')
else writeln('Не делится');
readln;
End.
Структура связей показана в прилагаемом рисунке.
var
a, b:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
while (a <> 0) and (b <> 0) do
if a >= b then
a := a mod b
else
b := b mod a;
a := a + b;
if a = 1 then
writeln('Числа являются взаимнопростыми' )
else
writeln('Числа не являются взаимнопростыми' )
end.