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

a)

program a4;

uses crt;

var x: integer;

begin

clrscr;

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

if (x>=6) and (x<=17) then writeln ('Shkolnik')

else writeln ('Ne shkolnik');

end.

б)

program b4;

uses crt;

var x: integer;

begin

clrscr;

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

if (x>=13) and (x<=19) then writeln ('Tineager')

else writeln ('Ne tineager');

end.