дано число с клавиатуры, если его квадрат больше чем утроенное, тогда вывести его на экран

program a;var a: integer;beginwriteln ('Vvedite chislo: ');readln(a);if (a*a > 3*a) then writeln ('a = ', a)else write ('Ne podhodit');end.