Question

Построить изображение разноцветного квадрата и затем внутрь внести свою Фамилия, имя и отчество, год рождения и группу.
Pascal ABC

Answer 1

uses graphabc;
begin
  window.Init(0, 0, 600, 600, clwhite);
  window.IsFixedSize := true;
  pen.Width := 5;
  line(50, 50, 500, 50, clred);
  line(50, 50, 50, 500, clblue);
  line(500, 50, 500, 500, clgreen);
  line(50, 500, 500, 500, clyellow);
  SetFontSize(30);
  DrawTextCentered(50, 0, 500, 150, 'Имя');
  DrawTextCentered(50, 130, 500, 200, 'Фамилия');
  DrawTextCentered(50, 200, 500, 330, 'Отчество');
  DrawTextCentered(50, 330, 500, 400, 'Год рождения');    DrawTextCentered(50, 400, 500, 500, 'Группа');
end.