Задание по информатике ​

program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do  begin  y: =x*h;   writeln('цена за ',h*1000,' грамм ',y,' руб');   h: =h+0.1  end; end.

var a: array [1..10] of real;

s,i: integer;

begin

  {vvod tablicy}

  for i : = 1 to 10 do

      if a[i]< > 0 then s: =s+1;

  writeln(s);

end.

сад гад год код кот                        

var a,p: real;

i,n: integer;

begin

  read(a,n);

  p: =1;

  for i: = 0 to n-1 do

    p: =p*(a+i);

  writeln(p);

end.