Создайте программу на lazarus для вычисления сумы всех натуральных двухзначных чисел заканчивающихся на 3

ЦЕЛЬ ПРОЕКТИРОВАНИЯ ПРОГРАММЫ:  

Автоматизация расчетов материалов, необходимых для выпол-нения ремонта в доме или квартире.  

НАЗНАЧЕНИЕ ПРОГРАММЫ:  

Расчет количества рулонов обоев для указанной комнаты.  

ОБЛАСТЬ ПРИМЕНЕНИЯ ПРОГРАММЫ:  

Программа может быть использована при ремонте комнаты, ко-гда надо знать, сколько надо купить рулонов обоев.  

ВВОД  

Вводится высота от пола до потолка, длина большей стены, длина меньшей стены, ширина двери, высота двери, ширина оконного проема, высота оконного проема, длина руло-на(const1) и ширина рулона(const2).  

ВЫВОД  

Выводится количество рулонов n

Объяснение:

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016

function gcd(a,b:integer):integer;
// Нахождение НОД
begin
  while b<>0 do
  begin
    a:=a mod b;
    var i:=b; b:=a; a:=i
  end;
  Result:=a
end;

procedure Shorter(var a,b:integer);
// "сокращатель" дроби
begin
  var k:=gcd(a,b);
  a:=a div k;
  b:=b div k
end;

begin
  var a,b:integer;
  Writeln('Введите числитель и знаменатель дроби: ');
  Read(a,b);
  Write(a,'/',b,'='); Shorter(a,b); Writeln(a,'/',b)
end.

Тестовое решение:
Введите числитель и знаменатель дроби:
25 15
25/15=5/3