program wyrazenia;

   uses math, crt;

  var { deklaracja zmiennych }
    a, b, c, d, e ,f, g : real;
    wynik1, wynik2, wynik3 : real;

    begin
    clrscr;
    writeln('Program obliczeniowy');
     write('Podaj zmienna ');
     write('Podaj a: ');
     readln(a);
     write('Podaj b: ');
     readln(b);

     wynik1:=sqr(a);
     wynik2:=sqrt(a);
   wynik3:=power(a,b);

   writeln('wynik 1= ',wynik1:12:3);
       writeln('wynik 2= ',wynik2:12:3);
            write('wynik 3= ',wynik3:12:3);
    readln;
  end.