Turbo pasckal

[Innocence]

Решите пожалуйста если не затруднит.
Даны шифры трёх ГАИ. Определить, есть ли среди них заданный. Напечатать соответствующее сообщение.

[Alex_FF]

что за шифры? в каком формате вводятся? и не pasckal, а PASCAL!!!

[Innocence]

извините за ошибку, случайно.

[Innocence]

в любом формате можно.

[Alex_FF]

как это в любом? они что из себя представляют? числа, строки, или что? было бы неплохо пример увидеть...

[Innocence]

Я написал всё что дано в задаче. Сказали решать, про формат ни слова.

[Alex_FF]

var
  S1, S2, S3, S: String;
begin
  WriteLn('Введите первый шифр');
  ReadLn(S1);
  WriteLn('Введите второй шифр');
  ReadLn(S2);
  WriteLn('Введите третий шифр');
  ReadLn(S3);
  WriteLn('Введите шифр для поиска');
  ReadLn(S);
  if (S = S1) or (S = S2) or (S = S3) then WriteLn('Есть такой')
  else WriteLn('Нет такого');
  ReadLn;
  ReadLn;
end.

[Innocence]

Спасибо огромное, выручил!)