program elso;
var
  tomb: array [1..10] of integer;
  i, osszeg, szorzat, beolvasott: integer;
  t: text;
begin
  randomize;
  writeln('Hello!');
  (*assign(t, 'adat.txt');
  rewrite(t);
  for i:=1 to 10 do
  begin
    tomb[i]:=random(10);      í
    write(tomb[i]:3);
    writeln(t, tomb[i]);
  end;
  close(t);*)
  //az állomány elemeinek összege és szorzata
  assign(t, 'adat.txt');
  reset(t);
  osszeg:=0;
  szorzat:=1;
  while not eof(t) do
  begin
    readln(t, beolvasott);
    if beolvasott <> 0 then
      szorzat:=szorzat * beolvasott;
    osszeg:=osszeg + beolvasott;
  end;
  close(t);
  writeln('A file elemeinek osszege:  ', osszeg);
  writeln('A file elemeinek szorzata: ', szorzat);
  readln;
end.