Информатика перевести в Паскаль

Question

Перевести в Паскаль.
На празднике Дня города организация открыла несколько торговых палаток, в которых торгуют:
-мороженым за 40 руб. 1 штк
-сладкой ватой за 20 руб. 1 штк
Найти: сумму покупки одного покупателя

araz_arazow_1 · Accepted Answer

program pk;
uses crt;
var a,b:integer;
begin
write('':5,' morogheni (кол. морож. штк ) a = '); read(a);
write('':5,' slad. Bata (кол. слад. ват. штк ) b = '); read(b);
writeln('':5,' summa = ',40*a+20*b,'( rubl)');
end.