Помогите пж. Пройдеть ли кирпич со сторонами а .в.с в квадратное отверствие х

1

Ответы и объяснения

2013-10-15T15:27:35+00:00
Var a,b,c,x:integer;
begin
writeln ('введи размеры кирпича: длину, ширину, высоту');
readln (a,b,c);
writeln ('введи размер квадратного отверстия');
readln (x);
if (x>=a) and (x>=b) and (x>=c) then writeln ('пройдет')
else writeln ('не пройдет');
readln;
end.