axelator

VAR a,b,c, :integer;
BEGIN
writeln ('Вычисление стоимости покупки');
writeln ('Введите исходные данные:');
writeln ('Цена тетради (руб.)->'); readln a;
writeln ('Цена обложки(руб.)->'); readln b;
writeln ('Количество комплектов->'); readln c;
write ('Стоимость покупки:', (a+b)*c)
END.

KaAd

нужно так

VAR a,b,c :integer;
BEGIN
writeln ('Вычисления стоимости покупки');
writeln ('Введите исходные данные:');
writeln ('цена тетради (руб.)->'); readln(a);
writeln ('Цена обложки(руб.)->'); readln (b);
writeln ('Ко-ство комлектов->'); readln (c);
write ('Стоимость покупки:', (a+b)*c);
readln;
END.

Это не я.Друг рядом который шарит в этом.

axelator

спасибо