1) процедурой textcolor(); Например textcolor(1);
2) Очень много применений, например для удобства чтения программы, паскаль не чувствителен к регистру.
3) стрелки направлений(4 штуки), кнопки Home и End, также Tab.
4) 1.мышкой, 2.зажав Shift, стрелочками, также Shift+Ctrl+стрелка.
С тебя спасибка!
Var a,b,c,e:longint;
begin
writeln('введите число');
readln(a);
for b:=a downto 0 do begin
c:= a mod 10;
a:=a div 10;
e:=e+c;
end;
writeln('сумма цифр числа => ',e);
end.
Var K,n:integer;
S:real;
Begin
n:=0;
Write('K = ');ReadLn(K);
For K:= 1 to K do
Begin
Write((12*K-21)/3,' ');
if (12*K-21)/3 > 0 then
Begin
S:=S+(12*K-21)/3;
n:=n+1
End;
End;
WriteLn;
Write('Sr = ',S/n)
End.