Question

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.​

Answer 1

La ecran se va afișa ATENTIE, deoarece s este egal cu predecesorul lui Verde, care este Galben.