. В некотором каталоге хранился файл Греция. jpg, имевший полное имя C:\2019\География\Греция. jpg. В этом каталоге создали подкаталог Европа и переместили в созданный подкаталог файл Греция. jpg. Каково стало полное имя этого файла после перемещения?

ответ: C:\2019\География\Европа\Греция.jpg

Объяснение добавили в папку "География" папку "Европа".

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.

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.