небытие это полнота, насыщенность. логика в том что оно иноприродно разуму, и являет собою структуру, лишь ограничевающею наш чувственный мир. логика, дедукция, индукция, если есть бытие то в антитезе существует не бытие, антипод бытия, вот чем вы наполните пустоту небытия, ну что такое пустота как не ограниченая форма материи. возьмите арсенал мира, с философией, и что вы в ней найдёте, мы все слепые как котята. на симпозиумах и конференциях полемизируют, не о яйце и курице а о курице яйце. илона важно сохранить атомы вашего тела, для будущей картины мира, мы из вашей материи после вашей смерти будем строит жизнь, а пока живите счастливо и в любви, и бога. ваш инженер
var a,b,c,p:real;
begin
writeln('введите размеры треугольника a,b,c');
read(a,b,c);
p:=a+b+c;
if (a=b) and (a=c)then
begin writeln('треугольник равносторонний');
writeln('периметр треугольника',p);
end
else writeln ('треугольник не равносторонний');
end.
А если написать самостоятельно, я бы сделал так:
var
a,b,c:real;
begin
Write('Введите размеры треугольника a,b,c: '); Read(a,b,c);
if (a=b) and (a=c) then
Writeln('Треугольник равносторонний с периметром ',3*a)
else Writeln ('Треугольник не равносторонний')
end.