program SquareComparison;
varnumber, square: integer;
beginwrite('Enter a number: ');readln(number);
square := number * number;
if square > (number * 3) thenwriteln('The square of the number is greater than three times the number: ', square);end.
program SquareComparison;
var
number, square: integer;
begin
write('Enter a number: ');
readln(number);
square := number * number;
if square > (number * 3) then
writeln('The square of the number is greater than three times the number: ', square);
end.