Var a,b,c,S,p:real;
begin
readln(a,b,c);
if (a<b) and (b<c) then writeln(a,b,c);
p:=0;
p:=a+b+c/2;
S:=0;
S:=sqrt(p*(p+a)*(p+b)*(p+c));
writeln(S:5:3);
end.
Для второго рисунка в программе вместо y+8 шаг 4 надо взять y+4 шаг 2
Во free pascal?
Если хоче порисовать то скачай Basic
101010 + 1110 = 111000
1010 + 1111 = 11001
1000 + 1011 = 10011