'
'    sumowanie i zliczanie liczb rzeczywistych z wejścia
'    wejście: 
'		dowolny skończony ciąg danych rzeczywistych, po jednej w każdym wierszu
'		nazwa pliku wejściowego zadana jako pierwszy argument
'		nazwa pliku wynikowego zadana jako drugi argument
'    wyjście: liczba elementów ciągu i suma elementów ciągu wpisane do pliku wynikowego w formacie CSV
'    ograniczenia: pierwsza dana w każdym wierszu musi być liczbą
'
sub sumowanie(dane as string, wyniki as string)
    dim n as integer
    dim x as double
    dim suma as double
    dim plik as integer
    plik = freefile
    open dane for input as plik

    n = 0
    suma = 0.0
    while not(eof(plik))
	input #plik, x
	n = n + 1
	suma = suma + x
    wend

    close #plik

    open wyniki for output as #plik

    write #plik,  "Ilosc", "Suma"
    write #plik, n,suma

    close #plik
end sub