Помогите решить в паскале

Question

Помогите решить в паскале

---

Answer 1

var
  x: integer;
begin
  writeln('X':3, 'F':6);
  for x := -3 to 4 do
  begin
    write(x:3);
    if (x > 0) then
      writeln(x * 5:6)
    else
      if (x = 0) then
        writeln(x - 5:6)
      else
        writeln(sqr(x):6);
  end;
end.