Recent content by aymen9309

Program Bulletin ; Uses Wincrt ; Var moy : integer ; Begin Write ('marks : ') ; Readln (moy) ; if 18 <moy then writeln ('Excellent') else if 16 < moy < 18 then writeln ('very good'); else if 14 < moy < 16 then writeln ('good'); else if 12 < moy < 14 then writeln ('above average') else if 0 <...