Скласти програму для переведення дробового числа у грошовий фотрмат. наприклад 12,5 повинно набути вигляд 12 grn 50kop​

А) Объёмы тождественных понятий совпадают. Иначе, из тождественных понятий мы получаем одно и то же знание фиксированного объёма
Пример: "Столица России" тождественно "Город Москва".
Б) Объемы пересекающихся понятий совпадают частично, т.е. у них есть некая общая часть. Пример: "Школьные предметы" и "Информатика". Информатика - один из школьных предметов, но также информатика - предмет, включающий материал, который в школах не изучается.
В) Если объем одного понятия полностью содержится в объеме другого, то первое понятие называется подчиненным второму, подчиняющему понятию.
Например, в отношении понятий "Река" и "Волга", подчиняющим будет "Река", а подчиненным - "Волга", как одна из рек.
Г) Соподчиненными называются два понятия, исключающие друг-друга и подчиненные одноми и тому же подчиняющему понятию. Например: "Математика" и "Русский язык" являются соподчиненными понятию ""Школьный предмет".

Program task;
var p:array[1..10] of integer;
      i, n2, n3, n4, n5:integer;
begin
       n2:=0; n3:=0; n4:=0; n5:=0; {n2 - n5 - колич. 2-ек, 3-ек и т.д.}
        writeln('Введите 10 элементов массива, отметки от 1 до 5');
        for i:=1 to 10 do {ввод исходных данных}
        begin
                 write('p[',i,'] = ');
                 readln(p[i])
         end;
         for i:=1 to 10 do  {решение, перебор таблицы и суммирование}
         begin
                 if p[i] = 2 then n2:=n2+1;
                 if p[i] = 3 then n3:=n3+1;
                 if p[i] = 4 then n4:=n4+1;
                 if p[i] = 5 then n5:=n5+1
          end;
          writeln('n2 = ',n2);  {вывод результатов}
          writeln('n3 = ',n3);
          writeln('n4 = ',n4);
          writeln('n5 = ',n5);
          writeln('всего оценок',n2+n3+n4+n5)
end.