Добивает меня бейсик, это маразм писать на нём вообще какие бы то ни было программы. Как мн на нем написать, например, это:
_____________________________________________
Program pascal;
uses crt;
var a:array[1..30,1..30] of Integer;
   i,j,n,m: Integer;
   p:boolean;
begin
   writeln('vvesti razmernost matrici:');
   readln(n);

   for i:=1 to n do
      for j:=1 to n do
         begin write('a(',i,j,')=');
            readln(a[i,j]);
            end;
   writeln('Vasha matrica:');
   for i:=1 to n do begin
      for j:=1 to n do
         write(a[i,j]:4);
         writeln;
         End;
   p:=true;
   for i:=1 to n-1 do
      if a[i,j]>a[i+1,j] then p:=false;
   if p then
   for i:=1 to n do
   writeln('Posledovat vozrastaet, nomera strok ',i)
      else writeln('Posledovat ne vozrastaet');


         End.
___________________________________________

А вот хз! Даже в этой проге:

Program Lab1;
uses crt;
var
   a,b,c:extended;
   y:extended;
begin
clrscr;
   write('a=');readln(a);
   write('b=');readln(b);
   write('c=');readln(c);

y:=0.3*((SQR(b)-2*a)/SQRT(a+b))-15*SQR(cos(b/3))-a+EXP((1/3)*ln((a+1.5*b+2*c)/(0.5*a)));
   writeln('y=',y:1:2);
   readln;
End.

Есть подковыркеи, если писать на долбаном бейсике.
Ну и вот: у меня болит голова, я ооооччччееееннььь хочу спать( В принципе, настроение норм) Но просто моя программная несостоятельность временами убивает. Сейчас разобралась в двух прогах, только та, что выше, имеет один недостаток ;).
А ещё по ходу дела у меня началась болезнь гипервентиляции лёгких, вопрос: где мне взять бумажных пакетов? Этим объясняются все мои проблемы в январе и вообще задыхания и боли в груди. Нифига это не астма, ни бранхит или ещё хз что. Это оказывается перенасыщение кислорода и недостаток углекислого газа, поэтому надо бумажных пакетов и дышать, тогда ослабевает боль и всё становится нормально. Круто, я решила эту задачу=)
 На улице дождь, ночь полна бессоницы, хочется, чтобы жара вернулась, лето же всё-таки.) И тепла, тепла, тепла!))