{
1. upozornuju, ze nevim co ten matematickej vzorec
ma provadet, takze ani netusim, jeslti je dobre vysledek!!!

Zadani: xcara=1/n SUMA(x) a y=odmocnina(1/N SUMA(x^2) - xcara^2)
program se ukoncuje zadanim 0
nacitaci cast musi byt pomoci fce, nebo procedury}

program Trakal_Matej;
uses crt;
var n,hodnota,x,xcara,y,vysledek:real;
    z:char;

function vstup:real;
var retezec:string;
    cislo:real;
    code:integer;
begin
     write('Zadej vstupni hodnotu: '); readln(retezec);
     val(retezec,cislo,code); {Prevede retezec na cislo,
                pripadne hodi error, pokud to neni cislo}
          if code <>0 then
             writeln('Chyba cteni dat - nebylo zadane cislo')
          else
              vstup:=cislo;
end;

begin
repeat
clrscr; {smaze obrazovku - k tomu je potreba nacist uses crt;}
writeln('Trtkal 2008 - http://fei.trtkal.net');
writeln('-----------------------------------');
     hodnota:=vstup; {do hodnota nacti z funkce cislo}
     n:=1;      {nasatveni pocatecnich hodnot}
     x:=0;
     y:=0;
     while hodnota<>0 do {dokud je cislo ruzne od 0 delej:}
           begin
                x:=x+hodnota; {k hodnote X procti nactenou z klavesnice}
                y:=y+(hodnota*hodnota); {do Y uloz Y a pricti mocninu
                        nactene hodnoty z klavesnice}
                hodnota:=vstup; {znovu nacti hodnotu z klavesnice a uloz}
                n:=n+1; {pricti pocet cyklu, pro nacitani poctu nacitani cisel,
                        na tomto miste je spatne, jelikoz bere i hodnoty, ktere
                        nebudou cisla a funkce hodi error, melo by byt ne funkci}
           end;
     xcara:=x/(n-1); {udelej prumer hodnoty X}
     vysledek:=sqrt(((y/(n-1))-((xcara*xcara)))); {vypocitej silenost}
     writeln('Aktualni honodta je: ',vysledek:3:3); {vypis na obrazovku}
writeln('----------');
write('Opakovat a/n: ');readln(z); {muj cyklus na opakovani programu}
until (z='n');
end.
{PS: tento program by sel o mrte zjednodusit, ale ja nejsem Carlos :D
napr.: vecny odecitani n-1, staci zadat na zacatek n=0...,
ale jsem linej to prepisovat :D}