HM
Hiori Mi
Помогите пожалуйста составить блок-схему для данной программы ( microsoft word)
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var x,y,z,s:real; Rez:string;
begin
writeln('vvedite x,y,z');
readln(x,y,z);
if (x+y>z) and (y+z>x) and ( z+x>y ) then Rez:=' treugolinik suwestvuet'
else Rez:='ne suwestvuet' ;
writeln ( 'otvet =',Rez);
readln; readln;
end.