Программа в Паскале. 1. В классе А учеников

3 var a,b: integer; s: integer; beginwriteln ('vvedite a '); readln (a); writeln ('vvedite b'); readln (b); if a or b>0 then s: =a+belse writeln ('ne vernoe yslovie'); writeln (s); readln; end.