Даны два числа а и b. Вывести ** экран квадрат каждого числа, в сообщении ** экране...

Question

Даны два числа а и b. Вывести на экран квадрат каждого числа, в сообщении на экране должно быть видно, что это квадрат
Помогите пожалуйста

Answer 1

Var a,b: Integer;
begin
writeln('Введите число a:');
readln(a);
writeln('Введите число b:');
readln(b);
writeln(a,'² = ',a*a);
writeln(b,'² = ',b*b);
end.

Comments

Спасибо