Даны целые положительные числа a1, a2, …, an. Найти среди них те, которые являются квадратами некоторого числа m — Pascal(Паскаль)

uses crt;
var i,m,n:integer;
begin
write('Введите целое положительное число = ');
readln(n);
write('Введите число М = ');
readln(m);
for i:=1 to n do
if i=m*m
then
writeln('Число = ',i);
readln;
end.