Скласти блок-схему алгоритму обчислення вартості покупки олівців, якщо відома їх кількість n та вартість одного олівця m. Значення змінної m, повинно бути передбачено при будові блок-схеми командою присвоєння m:= 5 і виведено покупцю напочатку алгоритму. Після цього необхідно запитати у користувача дані про кількість (n) олівців, які він хоче придбати. В результаті роботи алгоритму покупець отримує вартість покупки. Біля готової блок-схеми вкажи тип алгоритму .

носи́тель) — любой материальный объект или среда[уточнить], используемый человеком достаточно длительное время сохранять (нести) в своей структуре занесённую на него информацию, без использования дополнительных устройств (например, источника энергии).

Это может быть, например, камень, дерево, бумага, металл, пластмассы, кремний (и другие виды полупроводников), лента с намагниченным слоем (в бобинах и кассетах), фотоматериал, пластик со специальными свойствами (например, в оптических дисках) и другие.

Носителем информации может быть любой объект, с которого возможно (доступно) чтение (считывание) имеющейся на нём (нанесённой, записанной) информации.

Begin
  var a: integer;
  readln(a);
  for i: integer := 1 to abs(a) do
    if (a mod i = 0) then
      writeln('> ', i);
end.

function Simple(a: integer): boolean;
begin
  result := true;
  for i: integer := 2 to (a div 2) do
    if (a mod i = 0) then
     begin
      result := false;
      break;
    end;
end;

begin
  var a: integer;
  readln(a);
  writeln(Simple(a));
end.

var
  a: integer;

begin
  readln(a);
  for i: byte := length(a.ToString()) downto 1 do
    write(a.ToString()[i]);
end.

function Simple(a: integer): boolean;
begin
  result := true;
  for i: integer := 2 to (a div 2) do
    if (a mod i = 0) then
     begin
      result := false;
      break;
    end;
end;

function par(a: integer): string;
begin
  for i: byte := length(a.ToString()) downto 1 do
    result += a.ToString()[i];
end;

  
begin
  var a: integer;
  readln(a);
  for i: integer := 1 to abs(a) do
    if ((a mod i = 0) and (Simple(a)) and (par(a) = inttostr(i))) then
      writeln('> ', i);
end.