Program kvadrat;
uses crt;
var i,a,b: longint;
begin
write('a='); readln(a);
write('b='); readln(b);
for i:=a to b do
if trunc(sqrt(i))*trunc(sqrt(i)) = i then writeln(i);
end.
1.Sqrt(Power(x,3)+ Power (3,x))
Sqr(cos(sqr(x)))
sqr(1+x)
(sqr(x)+3*c)/(2*x)
2.(-b+ \sqrt{ x^{2} } -4ac)/2a
a/b(c+d) -(a-b)/b/c+ 1* 10^{-8} - 8
Repeat ставишь в начало, где нужно повторение
<span> until false в конец</span>