program pole_trojkata_procedure;

uses crt;

var a,h,z:real;

procedure trojkat(a1,h1:real; var pole1:real);

begin

pole1:=a1*h1/2;

end;

begin

writeln('Podaj wysokosc trojkata');

readln(h);

writeln('Podaj podstawe trojkata');

readln(a);

trojkat(a,h,z);

writeln('Pole trojkata wynosi ',z:0:4);

readln;

end.

program algorytm_euklidesa;

var x,y,z:integer;

procedure nwd(a,b:integer; var c:integer);

begin

while (b<>0) do

begin

c:=b;

b:=a mod b;

a:=c;

end;

c:=a;

end;

begin

writeln ('program wylicza najwiekszy wspolny dzielnik dwoch liczb, korzystajac z algorytmu Euklidesa');

writeln ('Podaj pierwsza liczbe');

readln (x);

writeln ('Podaj druga liczbe');

readln (y);

if ((x>0) AND (y>0)) then

begin

nwd(x,y,z);

writeln ('Najwiekszym wspolnym dzielnikiem liczb ',x,' i ',y,' jest ',z);

end

else

writeln('Prosze podac obie liczby dodatnie');

readln;

end.

---