---

program trikampis; {programos pavadinimas}
var x1, y1, x2, y2, x3, y3: integer; {cia visos koordinates}
begin {programos pradzia}
writeln('Iveskite A koordinate'); {praso ivesti A koordinate}
write('x1='); {reikia ivesti x1 reiksme}
readln(x1); {ivedimo operacija paraso x1}
write('y1='); {reikia ivesti y1 koordinate}
readln(y1); {paraso y1 ivedimo operacija}
writeln('Iveskite B koordinate'); {praso ivesti B koordinate}
write('x2='); {reikia ivesti reiksme x2}
readln(x2); {paraso ivedimo operacija x2}
write('y2='); {reikia ivesti y2 kordinate}
readln(y2); {paraso y2 ivedimo operacija}
writeln('Iveskite C koordinate'); {praso ivesti C koordinates}
write('x3='); {reikia ivesti x3 reiksme}
readln(x3); {ivedimo operacija paraso x3}
write('y3='); {reikia ivesti y3 koordinate}
readln(y3); {ivedimo operacija x3}
if {turi buti kazkoks kodas su if}
end. {programos pabaiga}

daugiau nzn