Напишите программу, которая составит все возможные комбинации из цифр 3.4.5.6. и проверит каждую из этих комбинаций, является ли она точным квадратом

Объяснение:

var a,b,c,d:integer;

begin

for a:=3 to 6 do

   for b:=3 to 6 do

       for c:=3 to 6 do

           for d:=3 to 6 do  begin

           if (a<>b) and (a<>c) and (a<>d)  and (b<>c) and (b<>d) and (c<>d)  and (frac(sqrt(1000*a+100*b+10*c+d))=0) then

writeln(a,b,c,d);

end;

end.