Помогите пожалуйста решить Pascal

[Вета08]

В паскале ничего не понимаю, дали задание, помогите пожалуйста
Записать блок-схему и составить программу для вычисления значений переменной y при заданном значении n. (Использовать три различных оператора цикла).
y=1/1 + 1/2 + 1/3 + ... + 1/n

[сфинкс]

Надеюсь поможет правильный алгоритм на языка высочайшего уровня Бэйсик

Для цикла на основе for to next
решает сразу 5 примеров чтоб вручную не вводить и можете упростить

For n = 1 To 5: y = 0 ' beta.bas
    For i = 1 To n: y =y + 1 / i: Next
    Print n, y
Next
End

Результаты

1 1
2 1.5
3 1.833
4 2.0833
5 2.28333

Проверка в Эксцель

= 1/1        = 1
=1/1+1/2        = 1,5
=1/1+1/2+1/3        = 1,833
=1/1+1/2+1/3+1/4    = 2,0833
=1/1+1/2+1/3+1/4+1/5    = 2,28333

На другие устаревшие языки программирования переводим сами

[MansMI]

var i,n:integer;
    y:real;
begin
  write('n=');
  readln(n);
  y:=0;
  for i:=1 to n do
    y:=y+1/i;
  writeln('y=',y);
  readln;
end.

[digitalis]

MansMI Это даже не пол-халявы, а ода треть. А где же while, repeat ?
А блок-схему (её не пишут, а рисуют) двоечница Вета08 может взять готовую с
https://pas1.ru/cycles