не понимаю что неправильно в программе

[3Doleg]

найти величину затрат на обед, изготовленный из 5 различных продуктов, количество затрат и цена продукта известна, наценка на прочие расходы составляет N процентов

ограничения укажу уже когда программа будет готова (там иф а> 0 и т.д.)

Код Pascal

program a3; uses crt;
var a,b,c,d,e,n,v,n1,n2,n3,n4,n5:real;
k1,k2,k3,k4,k5:integer;
begin
clrscr;
writeln('cena 1-go prodykta:');
readln(a);
          writeln('koluchestvo 1-go prodykta');
          readln(k1);
                     writeln('nacenka do 1-go prodykta');
                     readln(n1);
writeln('cena 2 prodykta:');
readln(b);
          writeln('koluchestvo 2 prodykta');
          readln(k2);
                     writeln('nacenka do 2 prodykta');
                     readln(n2);
writeln('cena 3 prodykta:');
readln(c);
          writeln('koluchestvo 3 prodykta');
          readln(k3);
                     writeln('nacenka do 3 prodykta');
                     readln(n3);
writeln('cena 4 prodykta:');
readln(d);
          writeln('koluchestvo 4 prodykta');
          readln(k4);
                     writeln('nacenka do 4 prodykta');
                     readln(n4);
writeln('cena 5-go prodykta:');
readln(e);
          writeln('koluchestvo 5 prodykta');
          readln(k5);
                     writeln('nacenka do 5 prodykta');
                                     readln(n5);
v:=((k1*a*(0.01*n1))+(k2*b*(0.01*n2))+(k3*c*(0.01*n3))+(k4*d*(0.01*n4))+(k5*e*(0.01*n5)));
writeln('veluchuna zatrat na obed- ', v:6:4);
readln;
end.

[Sciv]

Про массивы и циклы что-нибудь слыхали?
Хотя тут, по большому счету, можно и без массива, одним циклом обойтись.

Так что конкретно не нравится в коде?

Я бы предложил начать с упрощения кода:

program a3; 
uses crt;
var sum, price, n: real;
    i, k:integer;
begin
  sum:=0;
  for i:=1 to 5 do begin
    Write('Цена продукта №',i);
    ReadLn(price);
    Write('Кол-во продукта №',i);
    ReadLn(k);
    Write('Наценка для продукта №',i);
    ReadLn(n);
    sum:=sum+price*k*n*0.01;
  end;
  WriteLn('Всего затрат: ',sum:6:2);
  ReadLn;
end.

[3Doleg]

Спасибо большое)