Составте программу для паскаля плес

Program func;
Var x, y:integer;
begin
  readln(x);
  if x < 3 then
    y:=sqr(x) - 5
  else
    y:=x - 3;
  write(y);
end.