Написать программу вычисления стоимости покупки, состоящей из нескольких альбомов и красок. один альбом стоит 29 рублей, а одна пачка красок- 50 рублей. количество ввести при оператора read/
uses crt; var a,b,s:integer; begin write('Введите количество альбомов: '); readln(a); write('Введите количество пачек краски: '); readln(b); s:=29*a+50*b; writeln('Стоимость покупки равна ',s); end.
uses crt;
var a,b,s:integer;
begin
write('Введите количество альбомов: ');
readln(a);
write('Введите количество пачек краски: ');
readln(b);
s:=29*a+50*b;
writeln('Стоимость покупки равна ',s);
end.