Question

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

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

Answer 1

program z;
var
n,a,s,h,k,p,g:integer;
begin
n:=20; //Стоимость ручки
h:=15; //Стоимость карандашей
writeln('Сколько ручек вы хотите купить?');
readln(a);
writeln('Сколько карандашей вы хотите купить?');
readln(k);
s:=n*a;
p:=h*k;
g:=s+p;
writeln('Общая стоимость покупки ',g,' руб');
end.