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

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

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