Так, ну, во-первых, не нужно лезть в чужие темы. Создавайте свои под свои задачи.
Во-вторых, Вы проверили только то, что вводимое число есть квадрат ЦЕЛОГО числа, а в задаче требуется ещё и убедиться в том, что это целое число — простое.
Вот, как вариант решения:
Код:
Program DOLG;
Var
a:LongInt;
b:real;
Function Test(J:LongInt):Boolean;
Var
m:LongInt;
b:Boolean;
begin
m:=(J div 2)+1;
b:=true;
Repeat
Dec(m);
If (J mod m)=0 then b:=false;
Until (b=false) or (m=2);
Test:=b;
end;
Begin
write('Enter the number ');
readln(a);
b:=sqrt(1.0*a);
if (frac(b)=0) and (Test(Round(b))) then
writeln(a,' is a square of prime ',Round(b))
else
writeln(a,' is not a square of prime');
Readln
end.
На английский не обращайте внимания, просто мне так проще. Поправьте, если надо.
Функция Test проверяет, является ли число простым.
Программа написана на Free Pascal. Если у Вас Pascal ABC, то замените LongInt на Integer.