Посторойте рисунок по графику в Excel

QBasic — диалект языка программирования Бейсик (BASIC), разработанный компанией Microsoft, а также среда разработки, позволяющая писать, запускать и отлаживать программы на этом языке.

QBasic удобен для выполнения несложных вычислений и для прямой работы с портами. Наряду с Pascal, язык довольно популярен для обучения программированию, и не используется нигде.

Turbo Basic — компилятор языка Бейсик, а также его диалект, первоначально созданный Робертом «Бобом» Зейлом и впоследствии выкупленный у него компанией Borland

Procedure Chisla(n : Integer);
var    a : Integer;
begin 
   if (n < 1) then 
WriteLn   
  else 
  begin 
       Read(a);       
if (Abs(a) < 1000) then       
begin           
Chisla(n-1);           
Write(a,' ');       
 end       
else           
 Chisla(n);   
 end;end; function ReadN() : Integer;
var   
n : Integer;begin   
Write('n=');   
ReadLn(n);   
if Not(n in [0..1000]) then       
n := ReadN();   
ReadN := n;end; var   
n : Integer; begin   
n := ReadN();   
WriteLn('Введите ', n, ' целых чисел через пробел и нажмите Enter'); 
   Chisla(n);
end.