Вывести таблицу чисел от 30 до 40 и их квадратов.составить блок схему

Pascal:
program Project;
var
  i, q:integer;
begin
  for i:=30 to 40 do
  begin
     q:=sqr(i);
     write(i,' ',q);
  end;
end.