Pascal Стоимость ручек после подорожания

[std::vector]

program ruchki;
uses crt;
var k, p, s, a, k1: real;
begin
clrscr;
writeln('Цена до подорожания');
readln(k);
writeln('Процент подорожания');
readln(p);
writeln('Имеющаяся сумма денег');
readln(s);
k1:=(k*(p/100))+k;
a:=s/k1;
writeln('Загрузка...');
writeln('На ', s, ' рублей можно купить ', trunc(a), ' ручек.');
readln();
end.

Cкриншот с результатом работы:

Чтобы видеть скрытое содержание Зарегистрируйтесь на форуме!

Авторы: Я и Shubert