Uses crt;
var
a,b,c,d,e,f:real;
begin
writeln('Введите числа c и d');
readln(c,d);
writeln('Введите числа a и b');
readln(a,b);
if (c:=a * a) then begin
writeln('Число a является квадратом c');
else
writeln('Число a не является квадратом c');
end;
if (d:=b * b * b) then begin
writeln('Число d является кубом b');
else
writeln('Число d не является кубом b');
end;
End.