Урожайность. - Pascal

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

В некотором году (назовём его условно первым ) на участке в 100 гектариво средняя урожайность ячмепня составила 20 центнеров с гектара. После этого каждый год площадь увеличивалась на 5%, а среднея урожайность - на 2%. Определить: урожайность за второй, третий, ..., восьмой год.

Решение задачи: «Урожайность.»

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

var  s,h,u:real;
     i:byte;
begin
s:=100;
h:=20;
writeln('Урожайность с 2 по 8 годы');
for i:=2 to 8 do
 begin
  s:=s*1.05;
  h:=h*1.02;
  u:=s*h;
  writeln(i,' год=',u:0:2);
 end;
end.

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

В начале кода объявляются три переменные: s, h, u типа real, а также переменная i типа byte.
Переменная s инициализируется значением 100, а переменная h - значением 20.
Затем выводится сообщение «Урожайность с 2 по 8 годы».
Далее следует цикл for, который выполняется восемь раз (от i=2 до i=8).
Внутри цикла происходит увеличение значения переменной s на 5% и переменной h на 2%.
Затем происходит перемножение переменных s и h, и результат сохраняется в переменной u.
Выводится сообщение, содержащее номер года (от 2 до 8) и значение переменной u.
После завершения цикла выполняется выход из программы.