МОГУЧИЙ PASCAL ABC(ОТДАМ ВСЕ НАЖИТЫЕ БАЛЛЫ)!!!!!!!!!!!!!! ПОМОГИТЕ ПОЖАЛУЙСТА НАРИСОВАТЬ...

Question

МОГУЧИЙ PASCAL ABC(ОТДАМ ВСЕ НАЖИТЫЕ БАЛЛЫ)!!!!!!!!!!!!!!
ПОМОГИТЕ ПОЖАЛУЙСТА НАРИСОВАТЬ КУБ
РАСКРЫТЫЙ БЕЗ ЗО ВСЯКИХ РАСКРАСОК ОБЫЧНЫЙ! КУБ
КАК НА БУМАГЕ
С ФУНКЦИЯМИ LINE И ВСЁ
С ИНЕТА СДИРАТЬ НЕ НАДО УЖЕ ПРОБЫВАЛ НЕ ПРОКАТИТ

Answer 1

Посмотри, такой?
program z1;
uses GraphABC;
begin
line (100,100,200,100);
line (200,100,200,200);
line (200,200,100,200);
line(100,200,100,100);

line (150,50,250,50);
line(250,50,250,150);
line(250,150,150,150);
line(150,150,150,50);

line(100,100,150,50);
line(200,100,250,50);
line(100,200,150,150);
line(200,200,250,150);
end.