program wybor_dzialania;

var x:byte;

a,b,c:real;

procedure dodawanie;

begin

c:=a+b;

end;

begin

writeln ('Podaj liczbe a');

readln (a);

writeln ('Podaj liczbe b');

readln (b);

writeln ('Jakie dzialanie mam zrealizowac?');

writeln ('1-dodawanie');

readln (x);

case x of

1:dodawanie;

else

writeln ('Nie ma takiego dzialania');

end;

writeln ('Wynik dzialania ',c:0:4);

readln;

end.

program silnia_moja;

uses crt;

var liczba:integer;

odpowiedz:longint;

function silnia (n:integer): longint;

var i:integer;

wynik:longint;

begin

wynik:=1;

for i:=1 to n do

wynik:=wynik*i;

silnia:=wynik;

end;

begin

writeln('Podaj liczbe ktorej silnie mam policzyc');

readln(liczba);

odpowiedz:=silnia(liczba);

writeln('Silnia ',liczba,' wynosi ' ,odpowiedz);

readln;

end.

---