Каким следом? если в пейнте, то shift
Может быть вот так, мы писали что-то похожее в классе, только по другому сформулировано
program Chisla;
<span> </span><span>var a,n:integer; </span>
<span>begin </span>
writeln('a= ',a);
<span>readln(a); </span>
<span>if (a div 100 <9) and (a div 100 >=1) then inc(n); </span>
<span>writeln('n= ',n); </span>
<span> </span><span>end.
</span>Прошу прощения, если не то...
Программа по введеным 3 числам определяет, может ли существовать треугольник со сторонами, равными этим числам.
Правило треугольника: сумма любых двух сторон треугольника всегда больше третьей стороны.
оператор в программе всего 1: условный, который и проверяет все 3 условия(3 стороны - 3 разных условия, которые даже выполняться одновременно)
var
a, b, c: real;
procedure Traingle(a, b, c: real); {Процедура с входными параметрами - размерами сторон}
begin
if (a = b) or (a = c) or (b = c) then writeln('Истинно') {Если хотя бы две из трех сторон равны, то треугольник равнобедренный}
else writeln('Ложно');
end;
begin
writeln('Введите стороны треугольника a, b, c');
readln(a, b, c);
Traingle(a, b, c);
end.