Написать программу решения задачи на языке Паскаль:
а)Известно, что Х кг шоколадных конфет стоит А рублей, а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.
б)Дана длина ребра куба а. Найти его объем и площадь поверхности — Правильный ответ на вопрос найдете ниже

Ответ: // Известно, что Х кг шоколадных конфет стоит А рублей,// а 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.