Логика такая: нужно вычислить процент от суммы и прибавить его к исходной сумме.
В Pascal это будет выглядеть так:
program TipCalculator; var bill, tipPercent: real; tipAmount, total: real; begin readln(bill, tipPercent); tipAmount := bill * (tipPercent / 100); total := bill + tipAmount; writeln(total:0:0, ' руб'); end.
Вводишь сумму счета и процент чаевых, а программа рассчитывает итоговую сумму.