составьте программу рисования отрезков исходящих из центра географического окна

Решение такое (для x=1,2,3,4,5,6,7,8,9,10. ):

var
  x, y: real;
begin
   writeln('*********************');
   writeln('*    X    *    Y    *');
   writeln('*********************');
   for x := 1 to 10 do
      begin
         if x>=0 then y:=5*x else y:=4*x+2;
         writeln('*    'x,'    *    ',y,'    *');
      end;
   writeln('*********************');
end.

Но лучше сделать ввод значений х с клавиатуры:
var
   y: real; i:integer;
   mas: array[1..10] of real;
begin
   for i := 1 to 10 do
      begin
         write ('Введите ',i,'-е значение ');
         readln (mas[i]);
      end;
    writeln('*********************');
    writeln('*    X    *    Y    *');
    writeln('*********************');
    for i := 1 to 10 do
      begin
         if mas[i]>=0 then y:=5*mas[i] else y:=4*mas[i]+2;
         writeln('*    ',mas[i],'    *    ',y,'    *');
      end;
   writeln('*********************');
end.

 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 uses crt; const nmax=20; var a:array[1..nmax,1..nmax] of integer;     m,n,i,j,kp,ko:byte;     f:boolean; begin clrscr; randomize; repeat write('Количество строк до ',nmax,' n='); readln(n); until n in [1..nmax]; repeat write('Количество столбцов до ',nmax,' m='); readln(m); until m in [1..nmax]; writeln('Исходная матрица:'); for i:=1 to n do  begin    for j:=1 to m do     begin      a[i,j]:=random(20)-9;      write(a[i,j]:4);     end;    writeln;  end; writeln; f:=false; j:=1; while(j<=m)and not f do  begin   kp:=0;ko:=0;   for i:=1 to n do   if a[i,j]>0 then inc(kp)   else if a[i,j]<0 then inc(ko);   if ko=kp then f:=true   else inc(j);  end; writeln('Есть ли в матрице столбец с равным числом'); writeln('положительных и отрицательных элементов?'); write(f); readln end.