Составить программку в паскале для сопоставления периметров треугольника равностороннего и

// PascalABC.NET 3.4.2, сборка 1782 от 01.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var (a, b) := ReadReal2('Введите сторону треугольника и квадрата:');

 case Sign(3 * a - 4 * b) of

   -1: Println('Периметр квадрата больше');

   0: Println('Периметры одинаковы');

   1: Println('Периметр треугольника больше')

 end

end.

(Глядите ответ ниже, он лучше)

var a,b,c : integer;

begin

writeln('Введите сторону равностороннего треугольника и квадрата');

readln(a,b);

c:=a*3;

a:=c;

c:=b*4;

b:=c;

if agt;b then writeln('Периметр треугольника больше периметра квадрата');

if alt;b then writeln('Периметр квадрата больше чем периметр треугольника');

if a=b then writeln('Периметры одинаковы');

end.

(поставьте одну звезду, пожалуйста, полагаюсь, это удалят)