几道free pascal的题目

1.
var i,js:integer;
begin
while js1 do
begin
inc(i);
if i*4+(i+15)*2=132 then js:=1;
end;
writeln(i+15,' ',i);
end.
2.
14平均分三份?
不懂.
3.
var i:real;
begin
{(10*20-15*10)/5=10
10*20+10*20=400}
i:=400-10;
writeln(i:0:2);
end.
4.
var a,b,c,s,p:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s:0:2);
end.