Склавиатуры введится целое число x. если оно кратное 5, то вывести на экран квадрат этого числа, иначе- его куб

Программа написана на языке Pascal

var
  x: integer;
begin
  readln(x);
  if x mod 5 = 0 then
    writeln(x * x)
  else
    writeln(x * x * x)
end.