Пожалуйста посчитайте, пожалуйста)))

https://znanija.com/task/26391784Одноклассник твой?)Цикл с переменной i

for i := 1 to 10 doprogram raznost;
var X, Y1, sum: integer;
begin
  writeln('Введите значение X');
  readln(X);
  writeln('Введите значение Y1');
  readln(Y1);
  sum := X + Y1;
  writeln(sum);
end.
var
  x, y: real;
begin
  write('Введите x, y: ');
  readln(x,y);
  y := (x+y)/(sqrt(x)-abs(y));
  writeln('y = ', y:2:4);
readln;
end.

var
  x, y: real;
begin
  write('Введите x: ');
  readln(x);
  if x > 0 then
    y := (4*sqr(x)-2*x+1)/(3*x+1)
  else
    y := (sqr(x)-x-2)/(2*x+5);
  writeln('y = ', y:2:4);
readln;
end.

var
  N: integer;
begin
write('Введите число: ');
readln(N);
if N mod 5 = 0 then
  writeln('Число ', N,' кратно 5.')
else
  writeln('Число ', N,' некратно 5.');
readln;
end.


var
  i: integer;
begin
for i := 100 to 999 do
  write(i:4);
readln;
end.