Var s,i: real;begini:=1;s:=12;if s<=100 then i:=i+1 elses:=1.2*s+2;writeln(s);<span>end.
Так попробуй</span>
Р1,Р2,Р3 - разбойники
К1,К2,К3 - купцы
дальше идут только действия
1) туда Р1 и Р2
2) обратно Р1
3) туда Р1 и К1
4) обратно Р1
5) туда Р1 и Р3
6) обратно К1
7) туда К1 и К2
8) обратно Р1
9) туда Р1 и К3
1 вариант:
<span><span>var
</span></span>
a, b, c, min: integer;
<span><span>begin
</span></span>
min:=0;
<span>
readln(a, b, c);
</span>
<span>if (a<b) and (a<c) then min:=a;</span>
<span>
if (b<a) and (b<c) then min:=b;
</span>
<span>if (c<a) and (c<b) then min:=c;</span>
<span>
writeln(min);</span>
<span>
end.</span>
2 вариант:
<span>Var a:array[</span>1..3<span>] of </span>integer;
i,z:integer;
<span><span>begin
</span></span>
<span>for i:=</span>1 to 3 do
Readln(a[i]);
z:=a[1];
<span>for i:=</span>2 to 3 do
<span><span>
begin</span></span>
<span><span /></span><span>if a[i]<z
then z:=a[i];</span>
<span>
end;</span>
<span>
writeln(z);</span>
<span>
end.</span>
Var a,b,c:real;
begin
writeln ('Введите стороны треугольника');
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then writeln ('Существует')
else writeln ('Не существует');
end.