Написать программу в паскале abc. вывести на экран все двузначные числа, сумма цифр которых равна заданному числу n

Блин! Начал писать программу, а комп ВЫЛЕТЕЛ
Поэтому припоздал

uses Crt;
var i, n, m, z1, z2 :integer;

begin
 ClrScr;
 Write (' n = ');
 ReadLn(n);
 WriteLn;
 if (n<0) or (n>18) then WriteLn (' None!')
 else begin
      for i:=11 to 99 do
         begin
           m:=i;
           z1:=m div 10;
           z2:=m mod 10;
           if (z1+z2=n) then Writeln(' m = ', m);
         end;
      end;
 ReadLn;
end.

Var
i,j,n:integer;
begin
read(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then
Writeln(i,j , ' = ', n);
end.

data = [

   ['Ухмыляюсь', 2.26, 1.02, 87.3],

   ['Сияю от радости', 19.1, 1.69, 150.0],

   ['Катаюсь от смеха', 25.6, 0.774, 0.0],

   ['Слёзы радости', 233.0, 7.31, 2270.0],

   ['Подмигиваю', 15.2, 2.36, 264.0],

   ['Счастлив', 22.7, 4.26, 565.0],

   ['Глаза-сердца', 64.6, 11.2, 834.0],

   ['Целую', 87.5, 5.13, 432.0],

   ['Задумчивость', 6.81, 0.636, 0.0],

   ['Равнодушие', 6.0, 0.236, 478.0],

   ['Солнечные очки', 4.72, 3.93, 198.0],

   ['Громко плачу', 24.7, 1.35, 654.0],

   ['След от поцелуя', 21.7, 2.87, 98.7],

   ['Два сердца', 10.0, 5.69, 445.0],

   ['Сердце', 118.0, 26.0, 1080.0],

   ['Червы', 3.31, 1.82, 697.0],

   ['Класс', 23.1, 3.75, 227.0],

   ['Пожимаю плечами', 1.74, 0.11, 0.0],

   ['Огонь', 4.5, 2.49, 150.0],

   ['Переработка', 0.0333, 0.056, 932.0]

]

sum_emojixpress = 0

sum_instagram = 0

sum_twitter = 0

for row in data:

   sum_emojixpress += row[1]

emojixpress_mean = sum_emojixpress / len(data)

for row in data:

   sum_instagram += row[2]

instagram_mean = sum_instagram / len(data)

for row in data:

   sum_twitter += row[3]

twitter_mean = sum_twitter / len(data)

print('Среднее для EmojiXpress: {:.2f}'.format(emojixpress_mean))

print('Среднее для Instagram: {:.2f}'.format(instagram_mean))

print('Среднее для Твиттера: {:.2f}'.format(twitter_mean))

Объяснение:

объяснение в ответе

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
type
  Point=record
  x,y:real
  end;

function GetPoint(c:char):Point;
begin
  Writeln('Введите координаты точки ',c,':');
  Read(Result.x,Result.y)
end;

function Line(A,B:Point):real;
begin
  Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;

function SqTriangle(pA,pB,pC:Point):real;
begin
  var a:=Line(pB,pC);
  var b:=Line(pA,pC);
  var c:=Line(pA,pB);
  if (a+b>c) and (a+c>b) and (b+c>a) then begin
    var p:=(a+b+c)/2;
    Result:=sqrt(p*(p-a)*(p-b)*(p-c))
    end
  else Result:=0
end;

begin
  var A:=GetPoint('A');
  var B:=GetPoint('B');
  var C:=GetPoint('C');
  Writeln('Площадь треугольника равна ',SqTriangle(A,B,C))
end.

Тестовое решение:
Введите координаты точки A:
-5 3.18
Введите координаты точки B:
1.45 6.2
Введите координаты точки C:
6 -5.93
Площадь треугольника равна 45.98975