Function gcd(a, b: longint): longint;
// Нахождение НОД
var
i: longint;
begin
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
gcd := a
end;
var
a, b: longint;
begin
Write('Введите два натуральных числа: '); Readln(a, b);
Writeln('НОД(', a, ',', b, ')=', gcd(a, b))
end.
Тестовое решение:
Введите два натуральных числа: 7006652 112307574
НОД(7006652,112307574)=1234
С помощью Microsoft Office Excel
var
s : integer;
begin
for var i := 0 to 1000 do if i mod 2 > 0 then s += i;
writeln('s=', s);
end.
var
n : integer;
begin
write('введите n=');
readln(n);
for var i := 1 to n do write(i, ' ');
end.