Напечатать все целые числа от а до б и квадраты всех целых чисел от а до б через for и while.

var a, i, b: integer;
begin
     readln(a, b);
     for i := a to b do
          writeln(i, '  ', sqr(i));
     i := a;
     while (i <= b) do
     begin
          writeln(i, '  ', sqr(i));
          inc(i);
     end;
end.

В одной программе оба подхода =)