{* Задача 6 *}

Unit Z_PERCENT3;
Interface
Implementation
Begin
 writeln('Опытное количество семян в кг., выведенное селекционером, количество кг которое можно получить за сезон с одного кг., площадь поля которое необходимо засеять, га., норма высева кг/га. Вычислить через сколько лет селекционер сможет засеять новой культурой данное поле.');
End.

Program z_percent3;

Uses z_percent3.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  StartK : real;
  IncrP  : real;
  AreaS  : real;
  NomN   : real;
  Result : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('Введите опытное количество семян в кг.');
  readln(StartK);
  writeln('Введите количество, которое можно получить посеев 1 кг');
  readln(IncrP);
  writeln('Введите площадь, которую необходимо засеять, га.');
  readln(AreaS);
  writeln('Введите норму посева на 1 га.');
  readln(NomN);
  writeln; {* Пустая строка *}
  Result := ln(AreaS * NomN / StartK) / ln(IncrP);
  If frac(Result) = 0 Then
    writeln('Через ', Result : 0 : 0, ' лет можно будет засеять необходимую площадь')
  Else writeln('Через ', int(Result) + 1 : 0 : 0, ' лет можно будет засеять необходимую площадь');
    readln; {* Ждем нажатия Enter *}
End.