Тут же все просто х=0 потом .......
Var
i, k: integer;
begin
k := 0;
for i := 297 downto 230 do
if i mod 4 = 0 then
begin
write(i, ' ');
k := k + 1;
end;
writeln(#13+'Количество = ', k);
end.
http://excelpractic.ru/kak-postroit-grafik-v-excel.html
Корневой каталог - начальный каталог в структуре каталогов.
В этом случае ответ Б) В: