Помогите решить. Информатика, составить блок схему. 1 цикл с постусловием. 2 цикл с предусловием. 3 цикл для.

может быть тебе поможет эта программа, а по схеме - это отдельный разговор

program tabulaciya; // y:=x+1/x
uses crt;
var
a,b,h,x,y:real;
BEGIN
clrscr;
writeln('tabulaciya funkcii y:=x+1/x, obl.opredeleniya x<>0');
writeln('-----------------------------------------------------');
writeln;
write('vvesti levuy granicu promegutka A -->');
readln(a);
write('vvesti pravuy granicu promegutka B -->');
readln(b);
write('vvesti shag tabulacii dx -->');
readln(h);
writeln;
writeln(' x y');
writeln('----------------');
x:=a;
repeat
if abs(x)<0.00001 then begin
writeln(x:6:2,' net resheniya') end
else
begin y:=x + 1/x;
writeln(x:6:2,y:9:2); end;
x:=x+h;
until x >b;
writeln('----------------');
writeln;
writeln('konec zadachi');
readln;
END.