Помогите в pascal ABC написать имя " Рома либо Роман "

Помогите в 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.

Задать свой вопрос
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.
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт