Помогите решить задачи ПЖЛ. СРОЧНО!!!
Задача №1.
Пример цикла Repeat: проверка ввода. (В этом примере программа будет запрашивать ввод числа до тех пор, пока пользователь не введет "правильное" число.)
Задача №2.
Вычислить сумму чисел от 1 до 10.
Задача №3.
Вычислить сумму квадратов чисел от 1 до 8.

спасибо, от души)

1)var  x, R:integer; begin  write('Введите правильное число: ');  readln(R);  writeln('Проверка ввода:');  repeat    readln(x);  until x = R;  writeln('Вы ввели правильное число');end. 2)var sum, i:integer;begin  i:=0;  sum:=0;  repeat    i:=i+1;    sum:=sum+i;  until i = 10;  writeln(sum);end.3)var sum, i:integer;begin  i:=0;  sum:=0;  repeat    i:=i+1;    sum:=sum+i*i;  until i = 8;  writeln(sum);end.