Ввести с клавиатуры целые c1,c2,c3 и действительные s1,s2 числа Вычислить:

Введенные величины и результаты расчетов вывести на экран белым цветом повышенной яркости на желтом фоне с пятой позиции четвертой строки экрана/.Экран предварительно окрасить синим цветом
Вещественные(действительные) переменные A, B- с 3-мя и C--6-ю знаками в дробной части.
Проверить вручную или с калькулятора верность выполнения расчетов в созданном приложении

где-то в начале ii тысячелетия до нашей эры предки финикийцев изобрели алфавит.

само слово "алфавит" восходит к названиям первых финикийских букв: альфа "алеф" (бык) и  бета "бет" (дом). финикийцы дали название каждой букве своего алфавита.

значит  так  кролик  это  4 лапы + 1  голова  5(ед) ,  голубь 2 лапы  + 1 голова= 5(ед),    размещаем  сначало  во  все клетки по  голобю + по кролику  получается в каждой  клетке уже по  8 (ед)    остается 3 кролик и  4  голубя        5 елток  тоесть еще по  одному  кролику  и  в 2  оставшиеся по 2  голобу    получается    3 клетки  будет  по 1 голубю и 2 кролика    и 2  клетки  с 1 кроликом и 3 голубями          проверяем    1*3+2*5=13      и    5*1+3*3=14   тоесть  все верное  : )  

|з       з|

|         з|

|з   з     |

чесно говоря без них куда легче

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then s[i]: ='*';

  writeln(s);

end.

с ними только больше кода

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then begin

          delete(s,i,1);

          insert('*',s,i);

      end;

  writeln(s);

end.