Составить линейные алгоритмы на языке pascal. вот 1)железнодорожный билет для взрослого стоит x рублей. стоимость билета для школьника y составляет p% от стоимости билета для взрослого. группа состоит из k школьников и v взрослых. сколько рублей m стоят билеты на всю группу? 2) при оплате услуг через платежный терминал взимается комиссия p%. терминал принимает суммы кратные 10 рублям. аня хочет положить на счет своего мобильного телефона не меньше r рублей. какую минимальную сумму m она должна положить в приемное устройство данного терминала? заранее .
program z;
var
x, y, p, k, v, m: real;
begin
read (x, y, p, k, v, m);
m:=v*x+k*(x*p/100);
write (m);
end.