program Reals;                     {@obtiznost: 1}
uses crt;

var r: real;
    e: extended;

begin
   clrscr;

   r := sqrt(2);
   e := sqrt(2);

   writeln('Odmocnina z 2 v promenne typu     real = ',r);
   writeln('Odmocnina z 2 v promenne typu extended = ',e);


   writeln('Znovu umocnime (real)    = ',sqr(r));
   writeln('Znovu umocnime (extended)= ',sqr(e));
end.