Вопросы от Ромарио! Опции

[Romario]

Начинаю серьёзно учить Паскаль и вот решил создать и пихать сюда все неясности, если вы конечно не против
Первые вопросы:

• Как в Паскале менять цвета?
  
• Как  --//-- создать таблицу и что-нить в ней написать.
  
• И может кто-нить меня раздуплит в массивах? ;D

[Clane]

Код

program a2;
var a:integer;
begin
  a:=0;
  for a:=1 to 7777 do
    if (a mod 7=0) then writeln(a);
  a:=a+1;
  readln;
  readln;
end.

Вместо for подставляешь while and repeat. Надеюсь эти констукции ты знаешь.. в цикле менять ничего не нужно, просто вместо for и т.д. делай например конструкцию while

Добавлено:

Код

program a1;
var a,b,c,d: integer;
begin
  writeln('Введите a');
  readln( a );
  writeln('Введите b');
  readln( B );
  if (a mod b=0) then begin c:=a/b; writeln( c )
  else writeln('Не нацело делиться');
  d:=(a div B);
end.

Писал наспех, на кто что-то может и забыл написать, но прога сама правильная...