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.
Если задание - расположить в порядке возрастания запросы, то ответ таков:
3412
1024000 а кбит будет 1024
600000/1024=585,94
ответ:585,9 секунд