Пожалуйста посчитайте пожалуйста на компьютере задания 5,6,9.Срочно нужно.Задание 9. В каждом углу комнаты сидело по кошке. У каждой кошки x котят. Как узнать сколько всего ног? Составьте программу для решения задачи и вывода результата на экран. Значение переменной x ввести с клавиатуры.________________________________________________Заранее СПАСИБО!!!)

begin
  var a:=ReadReal('Укажите вес яблок известной стоимости:');
  var b:=ReadReal('Сколько стоят эти яблоки?');
  var k:=ReadReal('Вес яблок, стоимость которого хотите узнать:');
  Writeln('Эти яблоки будут стоить ',b/a*k:0:2)
end.


Укажите вес яблок известной стоимости: 6.2
Сколько стоят эти яблоки? 304
Вес яблок, стоимость которого хотите узнать: 2.5
Эти яблоки будут стоить 122.58



begin
  var (a,b,h):=ReadReal3('Введите длину, ширину и высоту комнаты:');
  Writeln('Площадь поверхности ее стен равна ',2*(a*h+b*h))
end.


Введите длину, ширину и высоту комнаты: 5.7 4.15 2.75
Площадь поверхности ее стен равна 54.175



begin
  var x:=ReadReal('Число котят у кошки:');
  Writeln('Общее количество ног равно ',4*4*(1+x))
end.


Число котят у кошки: 3
Общее количество ног равно 64