FreePascal.ru

Для начала спасибо за прошлый совет...
Скажите еще, как найти все числа которые входят в массив по одному разу?

Подскажите пожалуйста, как написать массив величины, вводимой с клавиатуры?

Спасибо, всегда ставил Readln, а в этот раз как-то вилетело с головы.

Спасибо, за коррективы! Но я от Вас еще не отстану... Не запускается графический режим(а точнее запускается, но сразу же завершается работа модуля Graph) Дайте пожалуйста совет. B компиляторе пишет Ranning "c:\fpc\2.4.4\bin\i386-win32\9.exe "

P.S. Спасибо, что помогаете!

Спасибо, что посмотрели процедуру! Хорошо, что есть такой форум...Одному тяжело учить. Чуть позже напишу всю програму

Добавлено спустя 1 час 28 минут 47 секунд:
Вот вся програма... Жду критики ))

Program Mashunka;
uses crt,graph;
var detect,mode,i:integer;
begin
clrscr;
initgraph(detect,mode ...

Подскажите пожалуйста что за ошибка
<1.1> Error: Illegal Expression
Graph прописан выше в самой програме;

Procedure doroga;
var i:integer;
begin
setcolor(6);
line(0,850,1440,850);
i:=0;
While i<=1440 do
begin
setcolor(2);
line(10+i,850,i,900);
i:=i+1;
end;
end.