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

Pascal ABC

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.