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

1. Определить площадь и периметр прямоугольника, если известны длина и ширина.

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

3. Определить стоимость проезда, если известны расстояние и стоимость проезда 1 километра.

4. Определить стоимость покупки, если известны цена товара и количество купленных килограмм.

5. Определить объём в литрах, если известен объём в баррелях. (1 баррель = 159 литров).

Var A, B:real;

Begin

//1

Write ('Длина = ') ; ReadLn (A) ;

Write ('Ширина = ') ; ReadLn (B) ;

WriteLn ('S = ', A*B) ;

WriteLn ('P = ',2 * (A+B)) ;

//2

WriteLn;

Write ('Кол-во денег: ') ; ReadLn (A) ;

Write ('Стоимость покупки: ') ; ReadLn (B) ;

WriteLn ('Сдача: ', A-B) ;

//3

WriteLn;

Write ('Расстояние: ') ; ReadLn (A) ;

Write ('Стоимость проезда 1 км: ') ; ReadLn (B) ;

WriteLn ('Стоимость проезда ', A,' км: ', A*B) ;

//4

WriteLn;

Write ('Цена товара: ') ; ReadLn (A) ;

Write ('Вес покупки: ') ; ReadLn (B) ;

WriteLn ('Цена покупки: ', A*B) ;

//5

WriteLn;

Write ('Объём в баррелях: ') ; ReadLn (A) ;

WriteLn ('Объём в литрах: ', A*159) ;

End.