Var
a,b:integer;
c:string;
begin
readln(a,b);
readln(c);
if c='+' then
writeln(a+b);
if c='*' then
writeln(a*b);
if c='-' then
writeln(a-b);
<span>end.
так проще</span>
Var
a,b,c,k:integer;
begin
readln(a,b,c);
if (a+b>c)and(b+c>a)and(a+c>b) then begin
writeln('треугольник существует');
k:=1
end
else writeln('треугольник не существует');
if (a=b)and(a=c) and (k=1) then
writeln('равносторонний');
if (((a=b)and(a<>c))or((c=b)and(c<>a))or((c=a)and(c<>b)))and (k=1) then
writeln('равнобедренный');
if (a<>b)and(c<>b)and(a<>c)and (k=1) then
writeln('разносторонний')
<span>end.</span>
Кнопка Ж делает текст жирным