Ввести 2 целых числа a и b и вывести квадраты всех чисел от a до b Пример: Введите 2 числа: 4 и 5 4*4=16 5*5=25
Ответ:
Объяснение:
var a,b : LongInt;
begin
a := 4; b:= 5;
writeln(a,' * ', a, ' = ', a*a);
writeln(b,' * ', b, ' = ', b*b);
end.
Спасибо