Составьте программу, вычисляющую произведение чисел от 1 до 5.

Var p:integer;
i:integer;
begin 
p:=1;
for i:=1 to 5 do 
p:=p*i;
writeln(p);
readln;
end.

ответ: 2 (нажав 10 раз на стрелку вправо курсор окажется после второго пробела перед буквой r, нажав 7 раз на Delete удалим последовательно rrrttt и лишний пробел)

Есть 4 клавиши со стрелками (клавиши управления курсором): стрелка влево (назад), стрелка вправо (вперёд), стрелка вверх и стрелка вниз.

Клавиша Backspace (обычно находится над клавишей Enter, иногда обозначается стрелкой направленной влево) — используется для удаления символа, находящихся перед курсором (слева от курсора).

Клавиша Delete (иногда обозначается Del) — используется для удаления символа, находящихся за курсором (справа от курсора).

Var a, b, c, rez: real;
begin
write('Введите число А: ');
readln(a);
write('Введите число B: ');
readln(b);
write('Введите число C: ');
readln(c);
if (a >= 0) and (b >= 0) and (c >= 0) then rez := a + b + c;
if (a >= 0) and (b >= 0) then rez := a + b;
if (a >= 0) and (c >= 0) then rez := a + c;
if (b >= 0) and (c >= 0) then rez := b + c;
if (a <= 0) and (b <= 0) then rez := c;
if (b <= 0) and (c <= 0) then rez := a;
if (a <= 0) and (c <= 0) then rez := b;
if (a <= 0) and (b <= 0) and (c <= 0) then rez := 0;
writeln(rez);
end.

Громоздко, но, думаю, покатит