Определите, какую фигуру нарисует исполнитель Черепашка после выполнения фрагмента алгоритма: повтори 12 [направо 45 вперед 30 направо 45]

1.if условие then команды end

Объяснение:

2.if условие then команды1 else команды2 end

if условие1  

 then команды1  

 else if условие2 then команды2

   else if условие3 then команды3

       ...  

         else if условиеN+1 then командыN+1

           else команды end;

3.if условие1 then команды1

elsif условие2 then команды2

elsif условие3 then команды3

...

4.else команды end;

5.If условие  

  then

     begin

       операторы;

     end

  else

     begin

       операторы;

     end;

6.if условие

...

fi;

1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969