Вкинотеатре к рядов кресел. в первом ряду х кресел, в каждом последующем на у кресел больше, чем в предыдущем. стоимость одного места в первом ряду – l тенге, а в каждом последующем – на m тенге больше, чем в предыдущем. подсчитать выручку кинотеатра за один сеанс при целиком заполненном зале. цикл с параметром

Var i,k,x,y,l,m,s:integer;
begin
readln(k);
readln(x);
readln(y);
readln(l);
readln(m);
for i:=1 to k do
begin
s:=x*l;
x:=x+y;
l:=l+m;
end;
writeln(s);
end.

Если нужно, переменные можно вводить в 1 строку через пробел, записав так: readln(a,b,c,d)