Program chisla1;
uses crt;
var a,b : integer;
begin
write('Введите два числа: ');
Readln(a,b);
if a>b then writeln(a,'>',b);
if a
Может ошибок а не вирусов Зака чай себе антивирусник или redorganaizer для исправление ошибок
Он не равнобедренный,он равносторонний.
<span> <span>begin
readln(a);
readln(b);
readln(c);
if (a=b)or(a=c)or(b=c)
then writeln('равнобедренный')
else writeln('неравнобедренный');
end<span>;</span></span></span>
===== PascalABC.NET =====
begin
var x := 12.0;
while x <= 15.1 do
begin
var y := Sin(x) - x ** 2;
Writeln(x:4:1, y:16:9);
x += 0.2
end;
end.