Натуральное число считается радостным, если оно оканчивается на 25 и является полным квадратом. Число считается полным квадратом, если является квадратом какого-то целого числа. Например, 25, 225, 625 радостные, а 125, 49, 325 - нет. Вам дано число k. Найдите k-е радостное число

Program pr2;

var

k,n: integer;

i:longint;

begin

read (k);

n:=0;

i:=4;

while n<k do begin

i:= i+1;

if sqr(i) mod 100 = 25 then n:= n+1;  

end;

write (sqr(i));

end.

Объяснение:

Это Pascal у меня правильно работает