===== PascalABC.NET =====
// 4.2.4
begin
foreach var k in SeqGen(10, 2, 2, (a, b) -> a + b) do
begin
Writeln($'{k} * {k} = {k * k}');
Writeln($'{k} * {k} * {k} = {k * k * k}');
end
end.
// 4.2.5
function НОД(a, b: integer): integer;
begin
while b <> 0 do
(a, b) := (b, a mod b);
Result := a
end;
begin
var (a, b, c) := ReadInteger3('Введите три целых числа:');
Writeln('НОД(', a, ', ', b, ', ', c, ') равен ', НОД(НОД(a, b), c))
end.