Сделайте пожалуйста 4(а и б), безотлагательно нужно! заблаговременно СПАСИБО!

a)

program a4;

uses crt;

var x: integer;

begin

clrscr;

writeln('Vvedite vozrast: ');readln(x);

if (xgt;=6) and (xlt;=17) then writeln ('Shkolnik')

else writeln ('Ne shkolnik');

end.

б)

program b4;

uses crt;

var x: integer;

begin

clrscr;

writeln('Vvedite vozrast: ');readln(x);

if (xgt;=13) and (xlt;=19) then writeln ('Tineager')

else writeln ('Ne tineager');

end.