Вывести числа от A до B, a и b вводят пользователи

Блок схему и программу на Паскале

Program chisla;

var A, B: LongInt; i: ShortInt;

begin

write ('Введите 2 целых числа >>');

readln (A, B);

for i: = A to B

do write (i, ', ');

end.

//Программа выведет подрят через запятую все числа от A до B.

Program z1;

var a, b, i: integer;

begin

writeln ('Введите A:');

readln (a);

writeln ('Введите B:');

readln (B);

i : = 0;

for i : = A to B do

begin

Writeln (i);

end;

end.