Не совсем понимаю,что тебе нужно,но думаю,тебе помогут вот эти команды:
использовать Робот
алг Квадрат
нач
закрасить
вправо
закрасить
вправо
закрасить
вниз
закрасить
вниз
закрасить
влево
закрасить
влево
закрасить
вверх
закрасить
кон
Ответ:4
Объяснение:
Поднялся на 2, тоесть оказался в D:\, затем создал каталог и переместил файл Общая. В итоге D:\9класс\общая
Var i,n,hi,kol:integer;
begin
kol:=0;
for i:=1 to n do //Задаем цикл
begin
readln(hi); //Вбиваем рост претендента
if hi>=170 then //Проверяем, соответствует ли его рост условию
kol:=kol+1; //Счетчик кол-ва подходящих под условие претендентов
end;
end.