на языке паскаль составить программу нахождения кубов чисел от 1 до 25 используя арифметическую операцию sqr (x)-x2 (во второй степени)
var
a:integer;
begin
read(a);
a:=sqr(a)*a;
write(a);
end.