Var
A:integer;
Begin
For A:= 1 to 50 do
WriteLn(A*A);
End.
Программа
{
опусти_перо;
вектор(0,30);
вектор(15,0);
вектор(0,-30);
подними_перо;
вектор(10,0);
опусти_перо;
вектор(10,30);
вектор(10,-30);
подними_перо;
вектор(-15,15);
опусти_перо;
вектор(10,0);
подними_перо;
вектор(15,-15);
опусти_перо;
вектор(0,30);
вектор(15,0);
вектор(0,-30);
подними_перо;
вектор(10,0);
опусти_перо;
вектор(10,30);
вектор(10,-30);
подними_перо;
вектор(-15,15);
опусти_перо;
вектор(10,0);
}
1.Навести стрелку на необходимый фрагмент
2.Зажать мышь.
3.Перетащить на нужное место фрагмент.
4.Радоваться жизни.
Работа отмечается как A ну пишется А шмеля