Нарисовать блок-схему.

uses crt;
var x,y,z,x1,x2,mx,mn,sr,c: real;
begin
clrscr;
write ('x= ');readln (x);
write ('y= ');readln (y);
write ('z= ');readln (z);
if (x+y<=z) or (x+z<=y) or (y+z<=x) then
   begin
    writeln ('treugolnik ne sushestvuet');
    readln;
    halt;
   end
else
  begin
    mx:=x;  //ищем максимальную сторону
    if y>mx then mx:=y;
    if z>mx then mx:=z;
    mn:=x;   //ищем минимальную сторону
    if y<mn then mn:=y;
    if z<mn then mn:=z;
    sr:=x+y+z-mx-mn; //ищем среднюю сторону
    c:=(mn*mn+sr*sr-mx*mx)/(2*mn*sr);  //по теореме косинусов ищем косинус угла, лежащего против максимаоьной стороны 
    if c>0 then writeln('treugolnik ostrougolnyj') //если косинус>0, то остроугольный
   {else if c<0 then writeln('treugolnik tupougolnyj')
    else if abs(c)<0.00001 then writeln('treugolnik pryamougolnyj');}//это на потом, вдруг пригодится.
  end;
readln
end.

uses crt;
var a:real;
    ko,ki:integer;
    c:char;
begin
clrscr;
ko:=0;ki:=0;
repeat
writeln('Vvedite chislo! Okonchanie vvoda - Esc');
readln(a);
if a<0 then ko:=ko+1;
if (a>=1)and(a<=2)then ki:=ki+1;
c:=readkey;
until c=#27;
writeln('Kolichestvo otrichatelnyh=',ko);
writeln('Kolichestvo v intervale=',ki);
readln
end.

if c>0 then writeln('treugolnik ostrougolnyj') //если косинус>0, то остроугольный
else writeln('treugolnik ne ostrougolnyj');