Цитата:
if not ((c='Walkman') or (c='walkman')
or (c='Dreamer') or (c='dreamer')
or (c='X3M-NRG') or (c='x3m-nrg'))
|
лучше так
c:=UpCase(c); // или UpString давно не юзал дососвский паскаль
if not ((c=('WALKMAN') or (c='DREAMER') or (c='X3M-NRG') )
Далее
Цитата:
if (a='да') then writeln('Введите дату моего рождения в формате ДД/ММ/ГГГГ')
else begin
writeln('Как хотите.');
goto 1;
end;
readln(b);
if (b='25.12.1993') then writeln('Правильно, теперь введите один из моих ников.')
else begin
writeln('Ошибка. Прощайте.');
goto 1;
end;
|
Запрос идет в формате 'ДД/ММ/ГГГГ' а ответ проверяется в формате 'ДД.ММ.ГГГГ'
И еще одно, но важное - никогда не используй GoTo!!!! Отвыкнешь, сам же спасибо скажешь
