СРОЧНО!!!
1)с клавиатуры вводятся два целых числа,вычесть в порядке возрастания все целые числа расположенные между А и В
2)найти сумму квадратов всех целых чисел от 1 до 20
3) посчитать сумму четных чисел в промежутке от 8 до 1000

вот 1program 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.вот 2program P2;// ИМЯ ПРОГРАММЫvar k,s:integer; //РАХДЕЛ ОПИСАНИЕ ПЕРЕМЕННЫХ,ЦЕЛЫЙ ТИП ДАННЫХbegin//НАЧАЛО ПРОГРАММЫs:=0; for k:=1 to 20 do s:=s+sqr(k);writeln('сумма = ',s); readln end.ВОТ 3program P3;// ИМЯ ПРОГРАММЫvar k,s:integer; //РАХДЕЛ ОПИСАНИЕ ПЕРЕМЕННЫХ,ЦЕЛЫЙ ТИП ДАННЫХbegin//НАЧАЛО ПРОГРАММЫs:=0; for k:=8 to 1000 do if k mod 2=0 thens:=s+k;writeln('сумма четных чисел = ',s); readln end.