Написал програму но она не работает

[Siusarna]

Массыви не учил поэтому делал розветлением.. Програма запускаеться но ответ не показывает можете сказать где ошыбка?

Program gfg2;
var S1,S2,S3,p1,p2,p3:real;
a,b,c,d,e,f,x,z,g,y,h,j,q,q1,q2,q3,q4,m,k,u,i,o,u1,i1,o1,l1,m1,r1,v1,t1,s4,l:integer;
Begin
writeln('vvedity kilkisty trikutnikiv 2 abo 3');
readln(k);
if k=2 then begin
writeln('storoni trikutnika ABC');
readln(a,b,c);
writeln('storoni trikutnika DEF');
readln(d,e,f);
p1:=(a+b+c)/2;
p2:=(d+e+f)/2;
S1:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
S2:=sqrt(p2*(p2-d)*(p2-e)*(p3-f));
if (frac(S1)=0) and (frac(S2)=0) then begin
if a>b then u:=a else u:=b;
if u>c then o:=u else o:=c;
if o>d then i:=o else i:=d;
if i>e then l:=i else l:=e;
if l>f then m:=l else m:=f;
if b>e then q:=(b-e) else q:=(e-b);
if b<e then q1:=b else q1:=e;
y:=a+d;
x:=m;
randomize;
z:=random(y-q)+q1;
end;
if (frac(S1)<>0) and (frac(S2)<>0) then writeln('trikutnik ne isnue');
end;
if k=3 then begin
writeln('vvedity storony trikutnika ADC');
readln(a,b,c);
writeln('vvedity storony trikutnika DEF');
readln(d,e,f);
writeln('vvedity storony trikutnika GHJ');
readln(g,h,j);
p1:=(a+b+c)/2;
p2:=(d+e+f)/2;
p3:=(g+h+j)/2;
S1:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
S2:=sqrt(p2*(p2-d)*(p2-e)*(p2-f));
S3:=sqrt(p3*(p3-g)*(p3-h)*(p3-f));
if (frac(S1)=0) and (frac(S2)=0) and (frac(S3)=0) then begin
if a>b then u1:=a else u1:=b;
if u1>c then i1:=u1 else i1:=c;
if i1>d then o1:=i1 else o1:=d;
if o1>e then l1:=o1 else l1:=e;
if l1>f then m1:=l1 else m1:=f;
if m1>g then r1:=m1 else r1:=g;
if r1>h then v1:=r1 else v1:=h;
if v1>j then t1:=v1 else t1:=j;
if b>e then s4:=b else s4:=e;
if s4>h then q2:=s4 else q2:=h;
if b<e then q3:=b else q3:=e;
if q3<h then q4:=q3 else q4:=h;
z:=random(y-q2)+q4;
x:=t1;
y:=a+d+g;
end;
if (frac(S1)<>0) and (frac(S2)<>0) and (frac(S3)<>0) then writeln('trikutnika ne isnue');
end;
writeln(x,y,z);
readln
end.

[min@y™]

можете сказать где ошыбка?

это шутка, да?

[Siusarna]

это шутка, да?[

почему? ладно где ошибка

[Stilet]

p1:=(a+b+c)/2;
p2:=(d+e+f)/2;
S1:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
S2:=sqrt(p2*(p2-d)*(p2-e)*(p3-f));

А где вычисляется p3?
Поменяв p3 на p2 я получил следующее:

vvedity kilkisty trikutnikiv 2 abo 3
2
vvedity storony trikutnika ADC
1
1
1
vvedity storony trikutnika DEF
2
2
2
trikutnika ne isnue
000

[Siusarna]

Сообщение от Stilet

А где вычисляется p3?
Поменяв p3 на p2 я получил следующее:

не понимаю о чем ты... можеш кинуть код?

[Stilet]

Кинуть? Лови:

S2:=sqrt(p2*(p2-d)*(p2-e)*(p2-f));

[Siusarna]

огромное спасибо

[Stilet]

Пожалуйста )