Помогите решить задачи ПЖЛ. СРОЧНО!!! Задача №1. Пример цикла Repeat: проверка ввода. (В...

Question

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

Answer 1

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.

Comments

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