Question

Вpascal abc написать имя " рома или роман " ( 7 класс ) огромное - мне нужен обычный текст с выводом моего имени на экран. пример работы ( имя влад ) uses graphabc; begin moveto(100,100); lineto(100,300); lineto(150,300); arc(150,250,50,270,90); line(100,200,150,200); arc(130,150,50,270,90); line(100,100,100,130); line(100,100,130,100); moveto(200,300); lineto(250,100); lineto(300,300); moveto(320,300); lineto(370,100); lineto(420,300); line(334,250,409,250); moveto(430,300); lineto(430,250); lineto(580,250); lineto(580,300); moveto(460,250); lineto(460,100); lineto(540,100); lineto(540,250); end.

Answer 1

Uses graphABC;
begin
moveto(100,100);
lineTo(100,300);
line(100,200,130,200);
arc(130,150,50,270,450);
line(100,100,130,100);

arc(200,255,50,270,630);

moveto(275,300);
lineto(275,210);
lineTo(310,265);
lineTo(345,210);
lineTo(345,300);

moveto(370,300);
lineto(405,210);
lineto(440,300);
moveto(425,265);
lineto(385,265);

moveto(460,300);
lineto(460,210);
moveto(530,300);
lineto(530,210);
moveto(460,265);
lineto(530,265);
end.

Answer 2

Uses graphABC;beginmoveto(100,100);LineTo(100,300);line(100,200,150,200);arc(130,150,50,90,-90);line(100,100,100,130);line(100,100,130,100);moveto(210,280);arc(250,150,50,150,30);lineto(210,120);arc(250,250,50,-150,-30);moveto(290,280);lineTo(290,120);moveto(320,300);lineto(370,100);lineTo(420,300);moveto(420,300);lineto(470,100);lineTo(520,300);moveto(520,300);lineto(570,100);lineTo(620,300);line(534,250,609,250);end.