Скільки сторінок тексту, кожна з яких має у середньому 40 рядків по 64 символи у кожному, можна записати на дискету ємністю 720 кб? , !

А сколько кб в 40 рядх
в 64 символах

{Первый вариант}

uses crt;
label 1;
var a: integer;
begin
1: write('Введите азимут в градусах: ');
readln(a);
 if a in [1..89] then writeln('Направление: северо-восток');
  if a = 90 then writeln('Направление: восток');
   if a in [91..179] then writeln('Направление: юго-восток');
    if a = 180 then writeln('Направление: юг');
     if a in [181..269] then writeln('Направление: юго-запад');
      if a = 270 then writeln('Направление: запад');
       if a in [271..359] then writeln('Направление: северо-запад');
        if a in [0,360] then writeln('Направление: север');
          if a > 360 then begin
           clrscr;
введите корректное значение.');
           goto 1;
           end;
          if a < 0 then begin
           clrscr;
введите корректное значение.');
           goto 1;
           end; 
end. 

{Второй вариант}
uses crt;
label 1;
var a: integer;
begin
1: write('Введите азимут в градусах: ');
readln(a);
case a of
 0,360:    writeln('Направление: север');
 1..89:    writeln('Направление: северо-восток');
 90:       writeln('Направление: восток');
 91..179:  writeln('Направление: юго-восток');
 181..269: writeln('Направление: юго-запад');
 270:      writeln('Направление: запад');
 271..359: writeln('Направление: северо-запад');
 end;
if a < 0 then begin
 clrscr;
введите корректное значение.');
 goto 1;
 end;
if a > 360 then begin
 clrscr;
введите корректное значение.');
 goto 1;
 end; 
end. 

Современные версии программного обеспечения (и в том числе, для языка Паскаль) позволяют в короткие сроки создавать очень короткие, наглядные и эффективные решения.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a.Where(x->x<0).Concat(a.Where(x->x>=0)).Println
end.

Тестовое решение
88 94 55 -38 43 -72 3 -26 -1 -23 84 93 40 -8 -25 77 4 39 -50 3
-38 -72 -26 -1 -23 -8 -25 -50 88 94 55 43 3 84 93 40 77 4 39 3

Замечание:
Если стоит задача получить именно массив, а потом его вывести, можно написать так:
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a:=a.Where(x->x<0).Concat(a.Where(x->x>=0)).ToArray;
  a.Println
end.