Составить и записать программу подсчета стоимости покупок не ...

Viktor

Pascal

 

program tovar;

var i,k:integer; t,s:real;

begin

s:=0; 

writeln ('Vvedit kol-vo tovara');

readln (k);

for i:=1 to  k do

begin

writeln ('Vvedit stoimost',i,'-go tovaru');

readln (t);

s:=t+s;

end;

writeln ('stoimost pokupok-',s);

readln

end.