Решить . №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.