ПОМОГИТЕ РЕШИТЬ ДО ЗАВТРА: Написать программы и блок-схемы:…

Блок смемы не умею var i: integers,n: real; Begin repeat read (n); if n>0 then s: =s+n until n=0; writeln (s); End. var a,s: real; i: integer; Begin read (a); repeat i: =i+1; s: =s+1/i until s>a; writeln (i,s); End.