Правила форума
Pred.PASЯзык:
Русский
English
{Pred.PAS}
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.
type Colors = (RED, BLUE, GREEN);
begin
WriteLn('Предшественник 5 - это ', Pred(5));
WriteLn('Последователь 10 - это ', Succ(10));
if Succ(RED) = BLUE then
WriteLn('В типе Colors, RED является предшественником BLUE.');
end.
::
::
::
