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

Question

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

---

Answer 1

a)

program a4;

uses crt;

var x: integer;

begin

clrscr;

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

if (x>=6) and (x

else writeln ('Ne shkolnik');

end.

б)

program b4;

uses crt;

var x: integer;

begin

clrscr;

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

if (x>=13) and (x

else writeln ('Ne tineager');

end.