ajutor
1. Ce va apărea pe ecran în urma execuției următorului program:
Program TE2;
type Semnal=(Rosu, Galben, Verde)3;
var s: Semnal;
begin
s:=Verde;
s:=pred(s);
case s of Rosu :
writeln ('STOP');
Galben: writeln ('ATENTIE'); Verde : writeln ('START');
end;
readln;
end.
