function foldrajz(fajlnev)
    % adatbetoltes
    f = fopen(fajlnev, 'r');
    fgets(f);
    n = 0;
    while 1
        s = fgets(f);
        if s == -1; break; end
        n++;
        [t s] = strtok(s, ';');
        orsz{n} = t;
        [t s] = strtok(s, ';');
        ter(n) = str2num(strrep(t, ',', ''));
        [t s] = strtok(s, ';');
        lak(n) = str2num(strrep(t, ',', ''));
    end
    fclose(f);

    % legnagyobb nepsurusegu orszagok kiirasa
    neps = lak ./ ter;
    [neps2 x] = sort(neps, 'descend');
    for i = 1 : 5; fprintf("%s, ", orsz{x(i)}); end
    fprintf("\n");

    % listazas terulet szerint csokkeno sorrendben
    [ter2 y] = sort(ter, 'descend');
    for i = 1 : n
	j = y(i);
	fprintf("%d.\t%s\t%d\n", i, orsz{j}, ter(j));
    end
end