Pascal написать программный код

Напишу, пожалуй, при помощи графического модуля (там есть же вывод текста и пр.). Только если Turbo Pascal - там надо инициировать графику, а если а-ля Pascal ABC, то тут проще. Напишу оба варианта:

1) Pascal ABC:

 Program Chislo; 

uses graphabc; 

begin 

line (20,50,35,35); line (25,35,25,15); 

line (25,15,45,15); line (25,35,45,35); 

line (45,50,45,15); line (65,15,85,15); 

line (65,50,85,50); line (65,50,65,15); 

line (95,50,95,15); line (115,50,115,15); 

line (95,15,115,15); line (125,50,125,15); 

line (145,50,145,15); line (125,50,145,15); 

line (155,15,175,15); line (155,50,175,50); 

line (155,50,155,15); line (185,50,185,15); 

line (185,50,205,50); line (185,35,205,35); 

line (205,50,205,35); line (215,50,215,15); 

line (225,50,225,15); line (225,15,243,15); 

line (225,50,245,50); line (225,33,245,33); 

line (243,15,243,33); line (245,50,245,33); 

line (255,50,265,15); line (265,15,275,50); 

line (260,33,270,33); line (285,50,285,15); 

line (285,33,305,33); line (305,50,305,15); 

line (325,50,325,15); line (305,15,325,15); 

line (305,50,325,50); line (20,115,20,75); 

line (40,115,40,75); line (20,115,40,75); 

line (65,115,85,75); line (65,75,85,115); 

line (95,115,105,75); line (105,75,115,115); 

line (100,100,110,100); line (125,115,125,75); 

line (145,115,145,75); line (125,75,135,115); 

line (135,115,145,75); line (155,115,165,75); 

line (165,75,175,115); line (185,115,185,75); 

line (185,95,205,95); line (205,115,205,75); 

line (225,115,225,75); line (205,75,225,75); 

line (205,115,225,115); 

textout (20,125,'Введите число: '); 

textout (20,135,'Сумма 1-ых 2 цифр этого числа: '); 

end. 

А вот на Turbo Pascal:

 Program Chislo; 

uses graph; 

Var D, m : integer ; 

begin 

D := detect ; 

InitGraph ( d, m , 'здесь нужно указать путь к драйверу EGAVGA . BGI ' } 

line (20,50,35,35); line (25,35,25,15); 

line (25,15,45,15); line (25,35,45,35); 

line (45,50,45,15); line (65,15,85,15); 

line (65,50,85,50); line (65,50,65,15); 

line (95,50,95,15); line (115,50,115,15); 

line (95,15,115,15); line (125,50,125,15); 

line (145,50,145,15); line (125,50,145,15); 

line (155,15,175,15); line (155,50,175,50); 

line (155,50,155,15); line (185,50,185,15); 

line (185,50,205,50); line (185,35,205,35); 

line (205,50,205,35); line (215,50,215,15); 

line (225,50,225,15); line (225,15,243,15); 

line (225,50,245,50); line (225,33,245,33); 

line (243,15,243,33); line (245,50,245,33); 

line (255,50,265,15); line (265,15,275,50); 

line (260,33,270,33); line (285,50,285,15); 

line (285,33,305,33); line (305,50,305,15); 

line (325,50,325,15); line (305,15,325,15); 

line (305,50,325,50); line (20,115,20,75); 

line (40,115,40,75); line (20,115,40,75); 

line (65,115,85,75); line (65,75,85,115); 

line (95,115,105,75); line (105,75,115,115); 

line (100,100,110,100); line (125,115,125,75); 

line (145,115,145,75); line (125,75,135,115); 

line (135,115,145,75); line (155,115,165,75); 

line (165,75,175,115); line (185,115,185,75); 

line (185,95,205,95); line (205,115,205,75); 

line (225,115,225,75); line (205,75,225,75); 

line (205,115,225,115); 

textout (20,125,'Введите число: ');  

textout (20,135,'Сумма 1-ых 2 цифр этого числа: '); 

end. 

какие-то проблемы с написанием кода самостоятельно?