программа в Паскале

[Нютка]

Написать программу на языке Pascal: Определить размер общих выплат по кредиту. Если X- размер кредита, N месяцев - продолжительность кредита. Условия банка: 1-3 месяцы 5%, 4-6 месяцы 7%, 7-12 месяцы 10%, более года 25%. Формула для вычисления obsh:=X+N*X*ProzStavka

[Vikenty]

бесплатно?

[XeruH]

формула есть какая-то?

[Roof]

Думаю, что вот так:

program credit;
uses Сrt;
var
  n: Integer;
  x, v: Real;
begin
  ClrScr;
  WriteLn('Vvedite razmer kredita');
  ReadLn(x);
  WriteLn('Vvedite prodoljitelnost kredita');
  ReadLn(n);
  
  case n of
    1..3: v := x * 1.05;
    4..6: v := x * 1.07;
    7..12: v := x * 1.1;
  else
    v := x * 1.25;
  end;

  WriteLn ('Razmer objih viplat ', v:4:2);
    
end.