Var a,b,c:real;
begin
readln(a,b,c);
if (a<b+c) and (b<a+c) and
(c<a+b) then writeln('mojet') else writeln('ne mojet');
<span>end.</span>
<span>1
2
3
4
5
6
7
8
9
10
11
12
<span>uses crt;
var a,c,h,s,x:real;
begin
clrscr;
writeln('Введите длины большего основания, боковой стороны и высоты ');
writeln('равнобедренной трапеции:');
readln(a,c,h);
x:=sqrt(c*c-h*h);
s:=(a-x)*h;
write('Площадь=',s:0:2);
readln
end.</span></span>
Нет не может так как это бумага
12(10)=1100(2) -две
ттттттттттттттттттттт
Неееееееееееееееееееееееееееееееееееезнаааааааааааааааааююююююююю