Раставить коментарии,Pascal ABC

[Aidar9119]

Вот код:

Uses
 CRT;
Var
 a,kol,n,i:integer;
 f:text;
Begin
randomize;
Assign(f,'1.txt');
rewrite(f);
write('N: ');
readln(n);
for i:=1 to n do
begin
 a:=random(200)-50;
 write(a:4);
 write(f,a:4);
end;
Close(f);
writeln;
reset(f);
while not eof(f) do
begin
 read(f,a);
 if (a>0) and odd(a) and (frac(sqrt(a))=0) then
  begin
   inc(kol);
   write(a:4);
  end;
end;
Close(f);
writeln;
writeln('KOL:=',kol);
readkey
End.

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


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Valio]

Комментирую код:
- отсутствие форматирования.
- нет "блочности".

[Aidar9119]

ага понял,буду знать

[Aidar9119]

Надо объяснение написать,например как на С++

//библиотеки
#include<iostream>
#include<cstdlib>
#include <time.h>
#include<fstream>
#include<cmath>
 
using namespace std;
 
int main(){
srand(time(0));
int i,k,j=0;
const int n = 10; //константное значение размера массива
int mass[10]; //инициализируем массив
cout<<"massiv:\n"; //выводим на экран строку "massiv:" и переходим на новую строчку
for( i =0;i<n;i++){ //цикл от 0 до 9
mass[i]= rand()%100; //забиваем массив случайными числами
cout<<mass[i]<<" "; //выводим массив в троку через пробел
}
cout<<"\n dannie zapisani v ==>fin.txt"<<endl;; //выводим на экран сообщение о записи в файл fin.txt
FILE *fp1 = fopen("fin.txt","w"); //открываем файл для записи
if(!fp1)
{
cout << "Nevozmozhno otkryt' fail"<< endl; //есди невозможно открыть файл выводим сообщение
}
for( i =0;i<n;i++){ //цикл от 0 до 9
k=sqrt(mass[i]); //вычисляем корень числа из массива
if(mass[i]==k*k&&k%2!=0){ //проверка на нечётность
j++; //если нечётное увеличиваем счётчик
}
}
for(i=0;i<n;i++){
fprintf ( fp1, "%d", mass[i]); //вывод массива в файл
fprintf ( fp1, " ");
}
fprintf ( fp1, "\n");
fprintf(fp1,"Kol-vo kvadratov nechetnix chisel: "); //выводим в файл строку "Kol-vo kvadratov nechetnix chisel: "
fprintf ( fp1,"%d", j); //вывод в файл количества нечётных чисел
fclose(fp1); //закрываем файл
system("PAUSE>>null");
return 0;
}

надо также тока с тем Паскалевским кодом,заранее благодарю