На синем фоне нарисуйте пять красных параллельных отрезков одинаковой длины.
Проблема втом, что после ввода значений пользователем получаю черный экран с курсором
Uses Graph;
var
Gd,Gm, x_0, y_0, x, y, h : integer;
begin
Writeln ('Vvedite koordinati na4ala 1-go otrezka');
Writeln (' x_0 = ');
read (x_0);
Writeln (' y_0 = ');
read (y_0);
Writeln ('Vvedite koordinati konchsa otrezka');
Writeln (' x = ');
read (x);
Writeln (' y = ');
read (y);
Writeln ('Kakoe dolshno bGit rasstoainie meshdy otrezkami?');
Writeln (' h = ');
read (h);
Gd := VGA;
Gm := VGAhi;
InitGraph (Gd,Gm,'');
if GraphResult = grOk then
begin
SetBkColor(1);
SetColor(4);
MoveTo(x_0,y_0);
LineTo(x,y + h);
MoveTo(x_0, y_0 + h);
LineTo(x, y + h);
MoveTo(x_0, y_0 + 2*h);
LineTo(x, y + 2*h);
MoveTo(x_0, y_0 + 3*h);
LineTo(x, y + 3*h);
MoveTo(x_0, y_0 + 4*h);
LineTo(x, y + 4*h);
end;
CloseGraph;
end.