Var a,b,c,x :integer;
function NOD(a,b:integer):integer;
begin
while a<>b do
if a>b then
a:=a-b
else b:=b-a;
Result:=a;
end;
begin
write('Введите a,b,c: ');
readln(a,b,c);
x:=NOD(NOD(a,b),c);
writeln('НОД=',x)
<span>end.</span>
Форма, мат, тик, ор, тина, мор, ром, кит, кома, рим, мир, нора, рок, мак, фара, арфа, рот.
<span>сначала задумали
потом написали сценарий
нашли деньги на съемку
сняли на цифровую камеру
склеили куски и получили фильм
записали звуковую дорожку.
смонтировали звук и видео.</span>
1.
var
i,n:integer;
begin
read(n);
for i:=1 to n do
write(i,', ');
end.
2.
var
i,n:integer;
begin
n:=9;
for i:=1 to n do
writeln(i,'*',n,'=',n*i);
readln(i);
end.