var sum_kr,srok_mes,plata,stavka,P:Float; N:Integer; stavka :=... P :=stavka/12; N :=... plata :=sum_kr*(P+( P/ ( exp (srok_mes*ln(1+P) ) -1) ) );