Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ Нужно подсчитать сумму покупки 14 карандашей по 30 рублей, 10 красных ручек по 50 рублей, 9 синих ручек по 50 рублей. ПРОГРАММА НУЖНА НА ЯЗЫКЕ PASKAL

Answer 1

Program p1;
var k, r_k, r_s: integer;
    begin
    WriteLn('Сколько было куплено карандашей?');
    ReadLn(k);
    WriteLn('Сколько было куплено красных ручек?');
    ReadLn(r_k);
    WriteLn('Сколько было куплено синих ручек?');
    ReadLn(r_s);
    WriteLn('Общая сумма: ', k*30 + r_k*50 + r_s*50);
end.