Untitled

program uzd3;
uses crt;
var f :file of real;
    x, mn, mx, suma, sandauga :real;
    z :string;

begin
    clrscr;
    writeln('Failo pavadinimas? ');
    read(z);
    assign(f,z);
    rewrite(f);
    writeln('Iveskite realiuosius skaicius, su kuriais norit vykdyti programa');
    writeln('Skaiciai turi buti didesni uz -99999');
    writeln('Jei norit baigti, spauskite -99999');
    read(x);

    while x<>-99999 do
    begin
        write(f,x);
        read(x);
    end;

    reset(f);
    mx:=x;
    while not eof(f) do
    begin
        read(f,x);
        if x>mx then mx:=x;
    end;

    reset(f);      //perkelia rodykle i failo pradzia
    suma:=0;
    repeat
        read(f,x);
        suma:=suma+x;
    until x=mx;
    suma:=suma-mx;

    reset(f);
    sandauga:=1;
    while not eof(f) do
    begin
      read(f,x);
      sandauga:=sandauga*x;
      if x=mx then sandauga:=1;
    end;

    writeln('Didziausias elementas = ', mx:3:3);
    writeln('Suma iki pirmojo didziausio elemento = ', suma:3:3);
    writeln('Sandauga elementu, esanciu nuo paskutinio maksimalaus elemento iki failo galo = ', mn:3:3);
readkey;
end.