Нужна . надо составить на языке паскаля программу для ,,перехода улицы на свет светофора,, и еще 1 программу ,,заварить заварку,, буду за

Program ggg;var s: integer;beginwriteln('какой цвет  горит на светофоре?');readln(s);if (s=1) or (s=2) thenwriteln('стой на месте');if s=3 thenwriteln('можешь идти')
end.