program taisarvu_fail;
var tf: file of integer;
    i, ruut: integer;
begin
 assign(tf, 'ruudud.mat');
 rewrite(tf);
 for i:=1 to 100 do begin
     ruut:=i*i;
     write(tf, ruut);
 end;
 close(tf);
end.