ПРОШУ,ПОМОГИТЕ!!!умоляю!БУДЬТЕ ДОБРЫ!!

var a,b:integer;
begin
while a>b do
begin
writeln('Введите пару чисел');
readln(a,b);
end;
writeln('условие нарушилось');
end.
Найдите и исправьте ошибку в программе.

скоростью А км/ч, а затем сели на попутную машину, которая ехала со скоростью В км/ч. За какое время туристы добрались до озера? 2)В школьном коридоре длиной 56 м нужно выкрасить пол. Выкрасив часть коридора длиной 22 м, израсходовали А кг краски. Сколько ещё нужно краски, чтобы докрасить пол? 3)Чтобы сварить 4 порции пшенной каши, нужно взять 220 г пшена, 1 л молока и зо г сахара. Сколько потребуется этих продуктов, чтобы сварить N порций каши? Плиииз помогите. Меня на этой теме не было и ничего не понимаю!

Помогите заполнить таблицу!!! От этого зависит четвертная оценка , прошу помогите !!!

1)S=1+2+3...+10
for, while, repeat.

2)S=2+4+6+8...+20

for, while, repeat.
надо короче решить с помощью этих трех программ этот пример. что бы выходил этот ответ...помогите пожалуйста.