Составить и записать программу решения задачи: У Пети есть х руб. Петя купил…

var x, a, b, c, d: integer; begin randomize; x: =trunc (random (100)+200; a: =trunc (random (10)+1; b: =trunc (random (10)+1; c: =trunc (random (10)+1; d: =trunc (random (10)+1; writeln ('У Пети ', x, ' рублей. Он купил ', a, ' тетрадей по ', c,' руб. И ', b, ' карандашей по ', d, ' руб.'); writeln ('Найти стоимость покупки и сдачу.'); readln; writeln ('Стоимость покупки: ', a*c+b*d, ' руб.'); writeln ('Сдача ', x — (a*c+b*d) , ' руб.'); readln; end.