Информатика - Если указанная сторона квадрата больше 6см, то вычислить его периметр, иначе вычислить его площадь?

program kvadrat;

var

 a : integer;

Begin

 write('ввести длину стороны квадрата = ');

 readln(a);

 if a > 6 then writeln('периметр P=', a*4) else writeln('площадь S=', a*a);

end.

программа протестирована на PascalABC.NET

было бы здорово в задании указывать на каком языке программирования вам нужен