Описание слайда:
Основная программа begin input (xa,ya,xb,yb,xc,yc); {вызов процедуры} input (xd,yd,xe,ye,xf,yf); a:=dline(xb,yb,xc,yc); {вызов функции} b:=dline(xa,ya,xc,yc); c:=dline(xb,yb,xa,ya); d:=dline(xe,ye,xf,yf); e:=dline(xd,yd,xf,yf); f:=dline(xd,yd,xe,ye); Sabc:=geron(a,b,c); {вызов функции} Sdef:=geron(d,e,f); writeln ('Sabc=',Sabc,'Sdef=',Sdef); Smax:=Sabc; if Sdef>Sabc then Smax:=Sdef; writeln ('Smax=',Smax); end.