Var
a, b, c: integer;
begin
readln(a);
readln(b);
c := 5*a-abs(4*a-2*b);
writeln(c);
end.
Или через случайные числа:
var
a, b, c: integer;
begin
randomize;
a := random(50);
b := random(50);
c := 5*a-abs(4*a-2*b);
writeln(c);
end.
//Pascal ABC.NET v3.1 сборка 1172
Var
i:integer;
begin
for i:=1 to 10 do
writeln('*');
end.
Если один из углов равен второму и сумма меньше 180 то треугольник равнобедренный . Если один из угла равен 90 градусу и сумма двоих меньше 180 прямоугольный . если 1 угол равен 2 и равны они 60 градусов то треугольник равносторонний . Кажется это все