Составьте программу которая запрашивает цифру от 1 до 3 и рисует цифру в графическом окне. пожалуйста помогите​ даю 50 баллов​

Программа на Pascal с использованием GraphABC:

program DrawDigit;
uses GraphABC;
var n: integer;
begin
  write('Введите цифру (1-3): ');
  readln(n);
  SetWindowSize(400,400);
  ClearWindow(clWhite);
  SetPenColor(clBlack);
  SetPenWidth(3);
  case n of
    1: Line(200,100,200,300);
    2: begin
        Line(150,100,250,100);
        Line(250,100,250,200);
        Line(250,200,150,200);
        Line(150,200,150,300);
        Line(150,300,250,300);
    end;
    3: begin
        Line(150,100,250,100);
        Line(250,100,250,150);
        Line(150,150,250,150);
        Line(250,150,250,200);
        Line(150,200,250,200);
        Line(250,200,250,250);
        Line(150,250,250,250);
    end;
  end;
end.

0 0 Пожаловаться