Безотлагательно!!!1)С клавиатуры вводятся два целых числа,отнять в порядке возрастания все целые

Вот 1
program P1;// ИМЯ Программки
var A, B, i,C: integer;//РАЗДЕЛ ОПИСАНИЕ ПЕРЕМЕННЫХ,ЦЕЛЫЙ ТИП ДАННЫХ
begin//НАЧАЛО Программки 
write('введите целое число А=');//ВЫВОД ЗАПРОСА НА ЭКРАН 
readln(A);// СЧИТЫВАНИЕ ТЕКСТА, ВВОДИМОГО С КЛАВИАТУРЫ
write('введите целое число B=');//ВЫВОД ЗАПРОСА НА ЭКРАН 
readln(B);// СЧИТЫВАНИЕ ТЕКСТА, ВВОДИМОГО С КЛАВИАТУРЫ 
for i := A to B do write(i, ' '); //ВЫПИСЫВАЕМ ЧИСЛА ОТ Наименьшего К БОЛЬШЕМУ ОТ А ДО В 
C:= B - A + 1;//СЧИТЫВАЕМ КОЛИЧЕСТВО ЧИСЕЛ 
writeln; 
write( 'Количество чисел - ', c);
end.
вот 2
program P2;// ИМЯ Программки
var k,s:integer; //РАХДЕЛ ОПИСАНИЕ ПЕРЕМЕННЫХ,ЦЕЛЫЙ ТИП ДАННЫХ
begin//НАЧАЛО Программки
s:=0;
for k:=1 to 20 do
s:=s+sqr(k);
writeln('сумма = ',s);
readln
end.
ВОТ 3
program P3;// ИМЯ Программки
var k,s:integer; //РАХДЕЛ ОПИСАНИЕ ПЕРЕМЕННЫХ,ЦЕЛЫЙ ТИП ДАННЫХ
begin//НАЧАЛО Программки
s:=0;
for k:=8 to 1000 do
if k mod 2=0 then
s:=s+k;
writeln('сумма четных чисел = ',s);
readln
end.