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

Question

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

Answer 1

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