1. Напишите программу, которая получает натуральные числа A и B
(A

program square;

var a, b, k: integer;// a,b — пределы, k — счетчик

begin

writeln('Введите два числа через пробел');

readln(a, b);

k:= a;

while k <= b do

begin

writeln(k, ' * ', k, ' = ', k * k);

k:= k + 1

end

end.

var x,y,nod,nok: longint;

begin

read(x,y);

a: =x; b: =y;

while (a> 0) and (b> 0) do

if a> b then a: =a mod b

else b: =b mod a;

nod: =a+b;

nok: =(x div nod)*y;

write(nok);

end;

революция 1917 года и великая отечественная война (1941-1945)