Контрольная работа: Программирование решения задач

ReWrite(Fout);

readln(fin, n);

for i := 1 to n do

begin

read(fin, tmp);

if tmp mod 2 = 0 then write(fout, tmp*tmp, ' ')

else write(fout, tmp, ' ');

end;

closeFile(Fin);

closeFile(Fout);

end.