Разработка алгоритмов и программ с использованием процедур и функций модуля crt.

Program Okna;
Uses CRT;
Var k: integer;
Begin     {Создаем левое окно - желтые символы на синем фоне}
     TextBackGround (Blue);
     Window (5,2,35,17);     
      TextColor (Yellow);
     for k:= 1 to 50 do     
write (' Нажмите клавишу Enter... ');
     readln;     ClrScr;
     {Создаем правое окно - белые символы на красном фоне}
     TextBackGround (Red);
     Window (40,2,70,17);     TextColor (White);
     for k:= 1 to 50 do 
        write (' Нажмите клавишу  Enter... ');
     readln;
End.

uses CRT;
var k,s,p:integer;
    c:char;
begin
textbackground(0);
textcolor(7);
clrscr;
repeat
write('Введите трехзначное число k=');
readln(k);
until(abs(k)<1000);
s:=0;
p:=1;
while k>0 do
 begin
  s:=s+(k mod 10);
  p:=p*(k mod 10);
  k:=k div 10;
 end;
repeat
window(1,1,80,25);
textbackground(0);
textcolor(7);
clrscr;
writeln('Что вывести?');
writeln('Enter-сумму цифр');
writeln('Esc-произведение цифр');
writeln('другое - выход');
c:=readkey;
clrscr;
case c of
#13:begin
    window(10,10,23,11);
    textbackground(2);
    textcolor(12);
    clrscr;
    write('Сумма цифр=',s);
    readln
    end;
#27:begin
    window(41,10,61,11);
    textbackground(6);
    textcolor(14);
    clrscr;
    write('Произведение цифр=',p);
    readln
    end;
else exit;
end;
until not(c in [#13,#27]);
end.