program vypocet;  //názov programu
uses crt;         //unit
var x,mocnina,odmocnina: real; //deklarácia premenných

begin        //začiatok programu
   clrscr;       //vymaže obrazovku
   writeln('Zadaj x>0');      //výpis na obrazovku
   readln(x);     //čaká na načítanie hodnoty x
   mocnina:=sqr(x);    //k premennej priradí príkaz mocniny
   odmocnina:=sqrt(x);  //k premennej priradí príkaz odmocniny
   writeln('mocnina cisla',x,'je',mocnina:8:2);  //výpis na obrazovku
   writeln('odmocnina cisla',x,'je',odmocnina:8:2);  //výpis na obrazovku
   readln;   //čaká na stlačenie klávesy Enter
end.  //koniec programu