👤
a fost răspuns

Sa se verifice daca numarul a este par .
Vreau ca programul sa aibe culoarea ecranului n verde folosind textbackground() pentruapoi functia clrscr() pentru a colora ecranul in culoarea de fundal :
textbackground(GREEN)
clrscr();

Răspuns :

uses crt;

var a:integer;

begin

 textbackground(GREEN);
 clrscr();

 read(a);
 
 if(a mod 2 = 0) then writeln('DA')
 else writeln('NU');

end.