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

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