Код:
uses Crt;
function Fun(a,b,c:integer):boolean;
begin
if a<(b+c)
then Fun:=true
else Fun:=false;
end;
var x,y,z:integer;
begin
ClrScr;
repeat
Write('x= ');
Readln(x);
if x<=0
then Writeln('Neverniy vvod');
until x>0;
repeat
Write('y= ');
Readln(y);
if y<=0
then Writeln('Neverniy vvod');
until y>0;
repeat
Write('z= ');
Readln(z);
if z<=0
then Writeln('Neverniy vvod');
until z>0;
if (x>y) and (x>z)
then
if Fun(x,y,z)
then Writeln('Mogut')
else Writeln('Ne mogut')
else
if (y>x) and (y>z)
then
if Fun(y,x,z)
then Writeln('Mogut')
else Writeln('Ne mogut')
else
if (z>x) and (z>y)
then
if Fun(z,x,y)
then Writeln('Mogut')
else Writeln('Ne mogut');
ReadKey;
end.