Написать программу вычисления стоимости покупки…

uses crt; var a,b,s: integer; beginwrite ('Введите количество альбомов: '); readln (a); write ('Введите количество пачек краски: '); readln (b); s: =29*a+50*b; writeln ('Стоимость покупки равна ',s); end.