Решите пожалуйста на компьютере задания 5,6,9.
Срочно нужно.

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

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!№4begin  var a:=ReadReal('Укажите вес яблок известной стоимости:');  var b:=ReadReal('Сколько стоят эти яблоки?');  var k:=ReadReal('Вес яблок, стоимость которого хотите узнать:');  Writeln('Эти яблоки будут стоить ',b/a*k:0:2)end.ПримерУкажите вес яблок известной стоимости: 6.2Сколько стоят эти яблоки? 304Вес яблок, стоимость которого хотите узнать: 2.5Эти яблоки будут стоить 122.58№5begin  var (a,b,h):=ReadReal3('Введите длину, ширину и высоту комнаты:');  Writeln('Площадь поверхности ее стен равна ',2*(a*h+b*h))end.ПримерВведите длину, ширину и высоту комнаты: 5.7 4.15 2.75Площадь поверхности ее стен равна 54.175№9begin  var x:=ReadReal('Число котят у кошки:');  Writeln('Общее количество ног равно ',4*4*(1+x))end.ПримерЧисло котят у кошки: 3Общее количество ног равно 64