<span>var f,i:integer;
begin
f:=1;
for i:=2 to 173 do f:=f+i;
writeln(f);
end<span>.
Результат:
</span><span>15051</span></span>
Readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
r:=abs(a1-a2);
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.