1. Вычислить площадь прямоугольника. 2. Вычислить стоимость покупки, состоящей из нескольких тетрадей и нескольких карандашей.

1.

var

a, b, S:real;

begin

s:=0;

writeln ('Введите величины: ') ;

readln (a, b) ;

s:=a*b;

write ('Площадь = ', s) ;

end.

2.

var

k, t, sum: real;

ck, ct: integer;

begin

sum:=0;

writeln ('Введите количество тетрадей: ') ;

readln (ct) ;

writeln ('Введите количество карандашей: ') ;

readln (ck) ;

writeln ('Укажите цену одной тетради: ') ;

readln (t) ;

writeln ('Укажите цену одного карандаша: ') ;

readln (k) ;

sum:=ct*t+ck*k;

writeln ('Суммарная стоимость покупки: ', sum) ;

end.