Если речь идет о MS Word, то их 3: нумерованный, маркированный, многоуровневый.
Все сложна я тебе так скажу думай сам тут если додуматься не так сложна
Program z;
var
n,a,s:integer;
begin
n:=20; //Стоимость ручки
Writeln('Сколько ручек вы хотите купить?');
readln(a);
s:=n*a;
writeln('Стоимость покупки ',s,' руб');
end.