Pascal ABC,генератор случайных чисел

[Aidar9119]

Привет! помогите написать програмку на Pascal ABC,
Задание: Заполнить файл f натуральными числами, полученными с помощью генератора случайных чисел. Найти количество квадратов нечетных чисел среди компонентов.
Заранее большое спасибо!!!!

[misher]

А сколько чисел?

[rubius2008]

for i:=1 to n do begin
  c:=random(100);
  write(f,c); write(c:3);
  if (frac(sqrt(c))=0)and(odd(round(sqrt(c)))) then k:=k+1;
end;