Pascal ABC, procedure и function.

[digitalis]

Ну это чересчур, издеваться над человеком. Он же не виноват, что плохо петрит.
Первую функцию - ввод - я накидал. Сейчас попробуем остальные две.

  {Если прибыль меньше суммы по процентам, то выводим -1, иначе считаем}
function process (k,r,p:double) : integer ;
var sr,sk: double ; v: integer ;
begin
      if r<=k*p/100 then process := -1 else
         begin
            v:=0;
            sr:=0;
            sk:=k; {лет=0, сумма прибыли=0, сумма кредита=кредиту}
            while sr<=sk do{пока сумма прибыли не превыcит сумму кредита}
               begin
                  Inc(v); {добавляем год}
                  sr:=sr+r;{считаем сумму прибыли}
                  sk:=sk+(k*p)/100;{считаем сумму кредита}
               end;
            process := v 
         end ;
end ;

------------------------------
procedure out_res(arg:integer) ;
begin
    if v < 0 then writeln('Не сможет!')
    else writeln('Сможет, через ',v,' лет')
end;

Как-то так. В логику я не вникал, чисто оформление.

Вcя программа сведётся к :

    k := input_data('Summa kredita k='); // и остальные параметры так же
    ................................
    v := process (k,r,p) ;
    out_res(v) ;

[Aleksandr H.]

Машинальная очепятка, v заменить на arg

procedure out_res(arg:integer) ;
begin
    if arg < 0 then writeln('Не сможет!')
    else writeln('Сможет, через ',arg,' лет')
end;

[digitalis]

Yes, Sir!

[suggestion]

digitalis, спасибо

[suggestion]

Petros-20, спасибо