case .. of

Pascal Switch / case

case у Pascal

Блок-схема за ДСТУ

Вихідний код

program Colors;
var c: integer;
begin
  readln(c);
  case c of
    1: writeln('Червоний');
    2: writeln('Зелений');
  else
    writeln('Інший');
  end;
end.