Question

В Паскале ABC.
Написать программу для расчета покупки карандашей и ручек.

Очень надо,помогите

Answer 1

program z;
var
 n,a,s:integer;
begin
n:=20; //Стоимость ручки
Writeln('Сколько ручек вы хотите купить?');
readln(a);
s:=n*a;
writeln('Стоимость покупки ',s,' руб');
end.