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

Question

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

Answer 1

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