Придумать имя файла, в котором будет храниться изображение твоего любимого героя. выделить собственное имя и расширение

a в квадрате плюс b в квадрате:

  sqr(a) + sqr(b);

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.