Решите, пожалуйста)))

znanija.com/task/26391784
Одноклассник твой?)

1)
Цикл с переменной i

for i := 1 to 10 do

2)
program raznost;
var X, Y1, sum: integer;
begin
  writeln('Введите значение X');
  readln(X);
  writeln('Введите значение Y1');
  readln(Y1);
  sum := X + Y1;
  writeln(sum);
end.

3)
var
  x, y: real;
begin
  write('Введите x, y: ');
  readln(x,y);
  y := (x+y)/(sqrt(x)-абс(y));
  writeln('y = ', y:2:4);
readln;
end.

4)
var
  x, y: real;
begin
  write('Введите x: ');
  readln(x);
  if x gt; 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.

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

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