Var a,b,c:integer; //стороны
begin
writeln('Введите длины сторон:');
read(a,b,c);
if (a=b)and(a=c)and(b=c) then
writeln('Треугольник равносторонний')
else
writeln('Треугольник не равносторонний');
readln;
end.
Текстовые файлы можно изменять и удалять
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
var a:=ReadArrString(n);
Writeln(40*'-');
foreach var w in a do begin
var wa:=w.ToWords;
if wa[2].ToInteger>100 then Writeln(w)
end
end.