program matma1;

var x,z:integer;

r:real;

y:boolean;

begin

writeln('Podaj liczbe calkowita');

readln(x);

z:=abs(x);

writeln('Modul liczby wynosi ',z);

z:=sqr(x);

writeln('Liczba do kwadratu wynosi ',z);

if (x>=0) then

begin

r:=sqrt(x);

writeln('Pierwiastek z liczby wynosi ',z);

end;

r:=exp(x);

writeln('eksponenta do potegi ',x,' wynosi ',r:10:3);

z:=succ(x);

writeln('Nastepnik liczby wynosi ',z);

z:=pred(x);

writeln('Poprzednik liczby wynosi ',z);

y:=odd(x);

if y=true then

writeln('Liczba ',x,' jest nieparzysta')

else

writeln('Liczba ',x,' jest parzysta');

readln;

end.

program matma1;

var x,z:integer;

r:real;

y:boolean;

begin

writeln('Podaj liczbe calkowita');

readln(x);

z:=abs(x);

writeln('Modul liczby wynosi ',z);

z:=sqr(x);

writeln('Liczba do kwadratu wynosi ',z);

if (x>=0) then

begin

r:=sqrt(x);

writeln('Pierwiastek z liczby wynosi ',z);

end;

r:=exp(x);

writeln('eksponenta do potegi ',x,' wynosi ',r:10:3);

z:=succ(x);

writeln('Nastepnik liczby wynosi ',z);

z:=pred(x);

writeln('Poprzednik liczby wynosi ',z);

y:=odd(x);

if y=true then

writeln('Liczba ',x,' jest nieparzysta')

else

writeln('Liczba ',x,' jest parzysta');

readln;

end.

---