Показать сообщение отдельно
Старый 12.01.2017, 17:35   #1 (permalink)
Alexey123
Member
 
Регистрация: 11.12.2016
Сообщений: 26
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Question Проблема с crt, Паскаль

Я нуб.
Не кидайте в меня яйцами за глупый вопрос,
я исправлюсь
Вопрос такой:

program lock;
uses crt;
const
pin = 4586;
var a: integer;
begin
readln(a);
if a = pin then
begin
TextColor(green);
writeln('Access accept');
end
else
textcolor(red);
writeln('Access denied');
end.

А выдает вот это:
Изображения
 
Alexey123 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070