«A»: Напишите программу, которая получает два целых числа A и B (0 < A < B) и выводит квадраты всех натуральных чисел в интервале от A до B.( Через цикл WHILE!!!!)
Пример:
Введите два целых числа:
10 12
10*10=100
11*11=121
12*12=144

var a, b: integer;begin  repeat    writeln ('Введите два целых числа:');    readln (a,b);    if (a<0) or (a>b) then writeln ('Ошибка')  until (a>0) and (b>a);  while a<=b do begin    writeln (a,'*',a,'=',a*a);    a:=a+1;  end;end.