Перевести смешанные десятичные числа в двоичную и восьмеричную системы счисления оставив пять знаков в дробной части нового числа
1)12.25
2)97.444
3)7896.2
с решением

// Известно, что Х кг шоколадных конфет стоит А рублей,
// а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг
// шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.

var x,y,a,b: real;
begin
  writeln('Введите массу шоколадных конфет');
  readln (x);
  writeln('Введите сумму потраченную на покупку шоколадных конфет');
  readln (a);
  writeln('Введите массу ирисок');
  readln (y);
  writeln('Введите сумму потраченную на покупку ирисок');
  readln (b);
  writeln ('килограмм шоколадных конфет стоит ',(a/x):0:2,' рублей');//(a/x):0:2 - округряем до сотых)
  writeln ('килограмм ирисок стоит ',(b/y):0:2,' рублей');
  Writeln ('Шоколадные конфеты дороже ирисок в ',(a/x)/(b/y):0:1,' раз');// - округляем результат до десятых
 end.

//Дана длина ребра куба а. Найти его объем и площадь поверхности

Var a: real;
begin
  writeln ('введите длину ребра куба');
  readln (a);
  while a<0 do
    begin
      writeln ('вы ввели не допустимое значение попробуйте еще раз');
      writeln ('введите длину ребра куба');
      readln (a);
    end;
  writeln ('площадь куба равна ',a*a*6);
  writeln ('объем куба равен ',a*a*a);
end.

А) По условию, девочку, вырастившую маргаритки зовут не Роза
("девочка, вырастившая маргаритки, обратила внимание Розы...") и не Рита ("ни у одной из девочек имя не совпадает с названием любимых цветов"), значит, её зовут Анюта. Далее следует, что Роза (вырастила не розы) могла вырастить только анютины глазки, а Рита - розы.
б) Говорит правду либо Виктор, либо Марат, так как их показания противоположны по смыслу. Значит Андрей и Денис соврали, из показания Дениса следует, что стекло разбил именно он. Правду сказал Марат.