Pred.PAS

Язык:
Русский
English


 { Пример программы для функций Pred и Succ }

uses Crt;

type Colors = (RED, BLUE, GREEN);

begin
 WriteLn('Предшественник 5 - это ', Pred(5));
 WriteLn('Последователь 10 - это ', Succ(10));
 if Succ(RED) = BLUE then
   WriteLn('В типе Colors, RED является предшественником BLUE.');
end.
Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //