Рассчитать количество краски - Pascal

Формулировка задачи:

Рассчитать количество краски, необходимое для покраски окон, если известен расход краски на 1кв. м.

Решение задачи: «Рассчитать количество краски»

Листинг программы

var
  a,b,c,d,r,s:real;
  n:integer;
begin
  writeln('Окраска прямоугольной рамы');
  write('введите длину и ширину рамы (м):');readln(a,b);
  write('введите количество стекл:');readln(n);
  for n:=1 to n do begin
    write('введите длину и ширину ',n,'-го стекла (м):');readln(c,d);
    s:=s+c*d;
  end;  
  write('введите расход краски на л/м2:');readln(r);
  writeln('Потребуется краски:',(a*b-s)*r*1.6:0:2,' л');
end.

Объяснение кода листинга программы

Объявление переменных:
- a, b, c, d, r, s как вещественные числа (real).
- n как целое число (integer).
Вывод на экран строки Окраска прямоугольной рамы.
Запрос ввести длину и ширину рамы, считываем введенные значения и сохраняем их в переменные a и b соответственно.
Запрос ввести количество стекол, считываем введенное значение и сохраняем его в переменной n.
Начало цикла от 1 до n:
- Запрос ввести длину и ширину n-го стекла, считываем введенные значения и сохраняем их в переменные c и d соответственно.
- Вычисляем площадь стекла и сохраняем ее в переменной s, прибавляя площадь n-го стекла к уже имеющейся.
Запрос ввести расход краски на 1 квадратный метр, считываем введенное значение и сохраняем его в переменной r.
Вывод на экран строки Потребуется краски: и вычисление количества краски, необходимого для окраски рамы. Расчет производится как разность между площадью рамы и площадью стекол, умноженная на расход краски на 1 квадратный метр и увеличенная на 60% (как указано в коде). Результат выводится с точностью до двух знаков после запятой.