Напишите программу, которая принимает с клавиатуры целое число, а затем выводит 20 последующих за ним чисел. язык паскаль

Var
A:integer;
Begin
Write('Введите целое число: ');ReadLn(a);
For A:= A+1 to A+21 do
    Write(A,' ')
End.