Рассчитать площадь квадрата- Pascal(Паскаль)

Program Ploshad_KBADPATA;

var
  a, s: real;

begin
  write('BBEDuTE CTOPOHY KBADPATA:');
  readln(a);
  s := a * a;
  writeln('Площадь равна: ', s:5:2);

end.