Дано натуральное число, если оно больше 5, то возведите в квадрат, если нет, то пусть на экране появится надпись ошибка ввода

var a:integer;
begin
write('a = ');
readln(a);
if a>5 then writeln(a,'^2 = ',a*a)
else writeln('Ошибка ввода');
end.

Пример:
a = 9
9^2 = 81

Var 
 a: integer;

begin
  write('Введите число: ');
  read(a);
  if(a > 5) then a := a * a
  else write('ошибка ввода');
end.