К среде надо сделать. Задание а) и б). Тема по информатике: основы алгоритмизации и программирования. Очень нужно! Сама писать программы не умею, но немного понимаю. Пожалуйста! Помогите кто-нибудь!!!

Да. У вас АБС паскаль установлен? если нет - скачивайте, запускайте, увидите.

Хорошо, когда освободиться, то скачаю. Попробовала на телефоне через онлайн pascal abc запустить. Светится ошибка на счёт "GraphABC". Почему так?

О, да его ещё и онлайн можно запускать! Ни разу не слышал. Может, просто графика онлайн не поддерживается?

Возможно. Спасибо за потраченное время. Я весьма вам благодарна!

Разберётесь, там всё просто, прямоугольники и круги, и всё.

uses GraphABC;begin  LockDrawing;  for var i:=1 to 800 do  begin    Window.Clear;    Brush.Color := clGray;    FillRectangle(i+10,90,i-110,430);    Brush.Color := clRed;    Ellipse(i,100,i-100,200);    Brush.Color := clYellow;    Ellipse(i,210,i-100,310);    Brush.Color := clGreen;    Ellipse(i,320,i-100,420);    Redraw;    Sleep(1);  end;  for var i:=1 to 900 do  begin    Window.Clear;    Brush.Color := clBlack;    Ellipse(i,100,i-200,300);    Brush.Color := clWhite;    Ellipse(i-1,101,i-199,299);    Brush.Color := clRed;    Ellipse(i-20,120,i-180,280);    Brush.Color := clWhite;    FillRectangle(i-50,180,i-150,220);    Redraw;    Sleep(1);  end;end.