luas segitiga

uses crt;
var
a,b,c:array [1..10] of integer;
s,l,r:array [1..10] of real;
m,n,o:integer;
begin
m:=0;
n:=0;
clrscr;
writeln ('*tugas algoritma*');
write('masukan jumlah segitiga : ');
readln(o);
repeat
m:=m+1;
writeln ('segitiga ke ',m);
write ('masukan sisi a yang ke ',m,' ',':');
readln(a[m]);
write ('masukan sisi b yang ke ',m,' ',':');
readln(b[m]);
write ('masukan sisi c yang ke ',m,' ',':');
readln(c[m]);
s[m]:= 0.5*(a[m]+b[m]+c[m]);
r[m]:=(sqrt(s[m]*((s[m]-a[m])*(s[m]-b[m])*(s[m]-c[m]))));
l[m]:=3.14*r[m]*r[m];
until m=o;
clrscr;
writeln('--------------------------------------------------------');
writeln('no    s     jari"lingkaran dalam     luas lingkaran dlm ');
writeln('--------------------------------------------------------');
repeat
n:=n+1;
writeln (n,'  ',s[n]:0:2,'             ',r[n]:0:2,'                ',l[n]:0:2);
until n=o;
readln;
end.

output 1

output 2