Составьте программы для решения следующих задач.

1. Определить площадь и периметр прямоугольника, если известны длина и ширина.
2. Определить размер сдачи, если известны количество имеющихся денег и стоимость покупки.
3. Определить стоимость проезда, если известны расстояние и стоимость проезда 1 километра.
4. Определить стоимость покупки, если известны цена товара и количество купленных килограмм.
5. Определить объём в литрах, если известен объём в баррелях.(1 баррель = 159 литров).

Var A,B:real;Begin//1Write('Длина = ');ReadLn(A);Write('Ширина = ');ReadLn(B);WriteLn('S = ',A*B);WriteLn('P = ',2*(A+B));//2WriteLn;Write('Кол-во денег: ');ReadLn(A);Write('Стоимость покупки: ');ReadLn(B);WriteLn('Сдача: ',A-B);//3WriteLn;Write('Расстояние: ');ReadLn(A);Write('Стоимость проезда 1 км: ');ReadLn(B);WriteLn('Стоимость проезда ',A,' км: ',A*B);//4WriteLn;Write('Цена товара: ');ReadLn(A);Write('Вес покупки: ');ReadLn(B);WriteLn('Цена покупки: ',A*B);//5WriteLn;Write('Объём в баррелях: ');ReadLn(A);WriteLn('Объём в литрах: ',A*159);End.