помогите пожайлуста программу сделал через функцию.
потом учитель сказал через процедуру
Uses crt;
Var x1,y1,x2,y2,x3,y3:integer;
S1,s2,s3,p:real;
procedure rast (a,b:real; var r:real);
Begin
R:=sqrt(sqr(a-b)+sqr(y2-y1));
End;
Begin
clrscr;
Writeln('vvedite koordinaty tochki x1 i y1 dlya 1 treugolnika');
readln(x1,y1);
Writeln('vvedite koordinaty tochki x2 i y2 dlya 1 treugolnika');
readln(x2,y2);
Writeln('vvedite koordinaty tochki x3 i y3 dlya 1 treugolnika');
readln(x3,y3);
P:=(rast(x1,y1)+rast(x2,y2)+rast(x3,y3))/2;
S1:=sqrt(p*(p-rast(x1,y1))*(p-rast(x2,y2))*(p-rast(x2,y2)));
Writeln('plosshad` 1 treugolnika=',s1:4:2);
Writeln('vvedite koordinaty tochki x1 i y1 dlya 2 treugolnika');
readln(x1,y1);
Writeln('vvedite koordinaty tochki x2 i y2 dlya 2 treugolnika');
readln(x2,y2);
Writeln('vvedite koordinaty tochki x3 i y3 dlya 2 treugolnika');
readln(x3,y3);
P:=(rast(x1,y1)+rast(x2,y2)+rast(x3,y3))/2;
S2:=sqrt(p*(p-rast(x1,y1))*(p-rast(x2,y2))*(p-rast(x2,y2)));
Writeln('plosshad` 2 treugolnika=',s2:4:2);
Writeln('vvedite koordinaty tochki x1 i y1 dlya 3 treugolnika');
readln(x1,y1);
Writeln('vvedite koordinaty tochki x2 i y2 dlya 3 treugolnika');
readln(x2,y2);
Writeln('vvedite koordinaty tochki x3 i y3 dlya 3 treugolnika');
readln(x3,y3);
P:=(rast(x1,y1)+rast(x2,y2)+rast(x3,y3))/2;
S3:=sqrt(p*(p-rast(x1,y1))*(p-rast(x2,y2))*(p-rast(x2,y2)));
Writeln('plosshad` 3 treugolnoka=',s3:4:2);
if (s1<s2) and (s3<s2) then if s1<s3 then writeln('samyy malenki 1 treugolnik')
else writeln('samyy malenki 3 treugolnik')
else writeln('samyy malenki 2 treugolnik');
Readln;
End.
извините код большой
помогите плиз ато из технаря выкинут
