Найти квадрат числа A, если оно меньше 100 — Pascal(Паскаль)

program z_number;

uses crt;

var
  a: real;

begin
  writeln('Введите число');
  readln(a);
  if a < 100 then
  begin
    writeln('Число меньше 100');
    writeln('Его квадрат равен ', a * a:7:2);
  end
  else
    writeln('Данное число больше или равно 100');
  readln;

end.