Составьте программу в паскаль:Букет роз стоит 370 рублей.Сколько стоят 2,3,4,5 букетов?

1. 370 умножить на 2,3,4,5 по очереди и сложить

Var a,b,c,d,e:integer;
begin 
write(Количество букетов);
read(a);
b:=370*a;
write(Цена,b);
end.