Cоставить блок схему для решения . дано число х. увеличить его на 5 если оно положительно, а в противном случае вывести отрицательное число

Var a.x:integer;
write(введите ваше число);
readln(x)
if(x>0)
then begin
a:=x+5;
writeln('Увеличенное число =',а );
end
else writeln('Число x =',x)
end.

 Древнеегипетская десятичная непозиционная система счисления. Примерно  в третьем тысячелетии до нашей эры древние египтяне придумали свою числовую систему, в которой для обозначения ключевых чисел 1, 10, 100 и т.д. использовались специальные значки — иероглифы.        Все остальные числа составлялись из этих ключевых при операции сложения. Система счисления Древнего Египта является десятичной, но непозиционной.!В непозиционных системах счисления количественный эквивалент  каждой  цифры не зависит  от ее положения (места, позиции) в записи числа.         Например, чтобы изобразить 3252 рисовали три цветка лотоса (три тысячи), два свернутых пальмовых листа (две сотни), пять дуг (пять десятков) и два шеста (две единицы). Величина числа не зависела от того, в каком порядке располагались составляющие его знаки: их можно было записывать сверху вниз, справа налево или вперемежку.          Римская система счисления. Примером непозиционной системы, которая  сохранилась  до  наших  дней, может служить система счисления, которая применялась более двух с половиной тысяч лет назад в Древнем Риме. В основе римской системы счисления лежали знаки I (один палец) для числа 1, V (раскрытая ладонь) для числа 5, X (две сложенные ладони) для 10, а для обозначения чисел 100, 500 и 1000 стали применять первые буквы соответствующих латинских слов (Сentum — сто, Demimille — половина тысячи,  Мille — тысяча).         Чтобы записать число, римляне разлагали его на сумму тысяч, полутысяч, сотен, полусотен, десятков, пятков, единиц. Например, десятичное число 28 представляется следующим образом:XXVIII=10+10+5+1+1+1 (три десятка, пяток, три единицы).        Для записи промежуточных чисел римляне использовали не только сложение, но и вычитание. При этом применялось следующее правило: каждый меньший знак, поставленный справа от большего, прибавляется к  его  значению,  а  каждый меньший знак,  поставленный слева от большего, вычитается из него.        Например, IX — обозначает 9, XI — обозначает 11.        Десятичное число 28 представляется следующим образом:XXVIII=10+10+5+1+1+1,а десятичное число 99 имеет вот такое представление:XCIХ=-10+100-1+10.          Римскими цифрами  пользовались  очень долго.  Еще 200 лет назад в деловых бумагах числа должны были обозначаться римскими цифрами  (считалось, что обычные арабские цифры легко подделать). Римская система  счисления сегодня используется,  в основном,  для наименования знаменательных дат, томов, разделов и глав в книгах.        Алфавитные системы счисления. Более совершенными непозиционными системами счисления были алфавитные системы. К числу таких систем счисления относились греческая, славянская, финикийская и другие. В них числа от 1 до 9, целые количества десятков (от 10 до 90) и целые количества сотен (от 100 до 900) обозначались буквами алфавита.        В алфавитной системе счисления Древней Греции числа 1, 2, ..., 9 обозначались первыми девятью буквами греческого алфавита, например a = 1, b = 2, g = 3  и т.д. Для обозначения чисел 10, 20, ..., 90 применялись следующие 9 букв (i = 10, k = 20, l = 30, m = 40  и т.д.),  а для обозначения чисел 100, 200, ..., 900 — последние 9 букв (r = 100, s = 200, t = 300 и т.д.). Например, число 141 обозначалось rma.         У славянских народов числовые значения букв установились в порядке славянского алфавита, который использовал сначала глаголицу, а затем кириллицу. Древнерусская алфавитная система счисления        В России славянская нумерация сохранилась до конца XVII века. При Петре I возобладала так называемая арабская нумерация, которой мы пользуемся и сейчас. Славянская нумерация сохранилась только в богослужебных книгах.        Непозиционные системы счисления имеют ряд существенных недостатков:1. Существует постоянная  потребность введения новых знаков для записи больших чисел.2. Невозможно представлять дробные и отрицательные числа.3. Сложно выполнять арифметические операции, так как не существует алгоритмов их выполнения. 

Var
  i,n,k:integer;
begin
  Writeln('15 чисел, кратных 19:');
  i:=100;
  while i mod 19<>0 do Inc(i); { первое, кратное 19 }
  Write(i,' ');
  k:=1;
  while k<15 do begin i:=i+19; Write(i,' '); Inc(k) end;
  Writeln
end.

Тестовое решение:
15 чисел, кратных 19:
114 133 152 171 190 209 228 247 266 285 304 323 342 361 380

Задача 2.
var
  m,V,rho,rmax:real;
  i:integer;
begin
  Writeln('Максимальная плотность материала для 30 тел.');
  Writeln('Вводите через пробел массу тела (кг) и объем (куб.см)');
  rmax:=0;
  for i:=1 to 3 do
  begin
    Write(i:2,': '); Read(m,V);
    rho:=m/V;
    if rmax<rho then rmax:=rho
  end;
  Writeln('Максимальная плотность равна ',rmax:0:3)
end.