1. Передача (или получение)
2. Обработка
3. Обработка
4. Хранение
5. Передача
6. Получение
7. Передача
8. Обработка
Надеюсь правильно, сорян если ошибся
Program chisla;
uses crt;
var a:integer;
begin
Write('Введите число - ');
readln(a);
If a>0 then
write('+1')
else begin
If a<0 then
write('-1')
else begin
If a=0 then
write('0')
else begin
end;
end;
end;
<span>end.</span>
Var i:integer;
begin
for i := 1 to 10 do
writeln('1*', i, '=', i);
<span>end.</span>