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

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