Решение метрических задач по начертательной геометрии на ЭВМ. Воронков А.И - 32 стр.

uses crt,graph;
var
  c:char;
  GD,GM,kod,ukaz,s:integer;
  i:longint;

procedure setka;
begin
 for i:=0 to 19 do
  line(20*i,26,20*i,26+14*22);
 for i:=0 to 22 do
  line(0,26+14*i,20*19,26+14*i);
end;

procedure ent(n{,t}:integer);
begin
 repeat
{ if t=1 then
       repeat

        outtextxy(315,80,'      нажмите клавишу    ');
        for i:=1 to 300000 do begin end;

        bar(315,80,600,90);
        for i:=1 to 300000 do begin end;
       until keypressed;}
  c:=readkey;
  kod:=ord(c);
  if kod=73 then begin
          s:=s-1;
          if s=0 then begin
                s:=1;
                kod:=33;
                end
               else
                exit;
          end;
  if kod=81 then begin
          s:=s+1;
          if s>n then begin
                s:=n;
                kod:=33;
                end
               else
                exit;

32