с инфой 7 класс!!

Какую фигуру нарисует Черепаха, выполнив программы:

повтори 4 [вперед 50 вправо 45]?
повтори 4[вперед 30 вправо 180]?
повтори 6 [вперед 40 вправо 72]?
повтори 10 [вперед 30 вправо 45]?
повтори 10[вперед 20 вправо 90]?

а)какое свойство указывает на назначение объекта: ? ответ: являеться носителем информации

б)какое свойство указывает на форму объекта? ответ: круглый

var

a,m,n,k: real;

begin

readln(m,n,k);

if (m+n+k)< (m*n*k) then 

a: =m+n+k

else

a: =m*n*k;

writeln(a);

end.

7 - диск, винт, сиди

9 пробел

10 импорт

11 окно

12ввод

15 стэк ?

16граф

18свич

20тэг

program divisors;

var

n,i: integer;

begin

readln(n);

for i: =n downto 1 do if n mod i = 0 then write(i,' ');

end.