программа вывода на экран

[LiLiASAM]

Разработать программу одновременного вывода на экран и смены цвета двух фигур разного цвета, меняющих положение по нажатию некоторой клавиши.
на паскале!!!помогите пожалуйста

[SilverShield]

Вон, недавно отвечал челу с похожей немног проблемой, вот программа смена цвета по нажатию клавиши окна, сам думаю переделаешь(Pascal ABC):Program lr13;
uses crt;
type mas=array[0..15] of byte;
var i,j,c:integer; a:mas; x:char;
procedure win;
var i:integer;
begin
window(1,1,40,12);
for i:=1 to 40 do
write(chr(149));
write(chr(149));
write('COLOR');
gotoxy(40,2);
write(chr(149));
for i:=2 to 11 do
begin
gotoxy(1,i);
write(chr(149));
end;
for i:=2 to 11 do
begin
gotoxy(40,i);
write(chr(149));
end;
gotoxy(1,11);
for i:=1 to 40 do
write(chr(149));
end;
begin
clrscr;
win;
window(41,1,80,12);
gotoxy(41,1);
for i:=0 to 15 do
begin
textcolor(i);
write(char(64));
a[i]:=i;
end;
gotoxy(1,1);
c:=1;
repeat
x:=readkey;
if x=chr(75) then
begin
if c=16 then c:=0;
c:=c+1;
textcolor(c-1);
win;
window(41,1,80,12);
gotoxy(c,1);
end;
if x=chr(77) then
begin
if c=1 then c:=17;
c:=c-1;
textcolor(c-1);
win;
window(41,1,80,12);
gotoxy(c,1);
end;
until (x=#27);
end.

[Александр :)]

написать программу вычисления последовательно вводимых чисел, остановить обработку при превышении абсолютной величины суммы 100.1

[Александр :)]

Пожалуйста выручите!!!!!))))))

[Pein95]

написать программу вычисления последовательно вводимых чисел, остановить обработку при превышении абсолютной величины суммы 100.1

можно както поподробней что нужно сделать?

[Александр :)]

подробней не могу,это и есть задание целиком

[Niro]

repeat
readln(chislo);
summa:=summa+chislo;
until abs(summa)<=100.1;

Вы просто вводите последовательность числе, в том числе можите вводить и отрицательные числа, а когда их сумма превысит 100,1, то выходит из цикла

[Pein95]

ясно просто не внимательно задания прочитал)

[Александр :)]

а можно программу целиком, просто я не очень разбираюсь в информатике. Заранее спасибо)))))))))))

[Pein95]

Program kj;
var chislo,summa:integer;
begin
summa:=0;
repeat
readln(chislo);
summa:=summa+chislo;
until abs(summa)<=100.1;
end.