Создайте программу для вычисления стоимости покупки, состоящей из нескольких тетрадей, карандашей и линейки, если стоимость превышает 200 руб. вывести сообщение ( превышен).

Var
a,b,c,d:integer;
Begin
writeln('Введите цену тетради, карандаша и линейки соответственно');
read(a,b,c);
d:=a+b+c;
if d>200 then writeln('Баланс превышен');
End.