Czy mógłby ktoś mi rozwiązać zadanie: Zapisz w języku Pascal iteracyjną wersje algorytmu Euklidesa w wersji z dzieleniem wykorzystując operator mod do obliczenia reszty z dzielenia dwoch liczb.

Proszę o pomoc w rozwiązaniu algorytmu:
Oblicz pole trójkąta S korzystając ze wzoru Herona. Masz do dyspozycji długość a,b,c.
S=pierwiastek[p(p-a)(p-b)(p-c)]
gdzie p=a+b+c/2
Warunki:
a+b>c
a+c>b
b+c>a
p(p-a)(p-b)(p-c)>0