Турбо Паскаль

Помогите пожалуйста написать прогу на турбо паскале

 

понч,чтоб поговорить,не гулять,епаца,подарков не дарить,может где-то в колхозе можно найти доярку.

 

Если правильно понял условие задачи, то вот:

PHP:

program Pryd;
var
  a,b,c,
  i,y:integer;
  t:Extended; // дробное число
begin
  i:=0;
  y:=0;
  Write('Количиство Рыбы: '); 
    ReadLn(A);
  Write('Отлов Рыбы: '); 
    ReadLn(B);
  Write('Порог "спаривания" Рыбы: '); 
    ReadLn(C);
  While a>1 do
  begin
    inc(y);
    t:=a/100*15; // Вычисляем 15% от всей рыбы
    a:=a-b; // вычитаем улов
    WriteLn('A - B :', a);  // Выводим отлов
    if a>c then
    begin
      a:=round(a+t); // если рыбы больше минимума, добавляем 15% и округляем
      WriteLn('A + % :', a); // выводим %
      inc(i); // увеличиваем счетчик годиков
    end;
  end;
  writeln('План лет: ',i); 
  writeln('Рыба исчезнет лет: ',y); 
  readln; // Ожидаем нажатия Enter для выхода
end.