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

1.

a, b, S:real;

s:=0;

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

readln(a,b);

s:=a*b;

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

2.

k, t, sum: real;

ck, ct: integer;

sum:=0;

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

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

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

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

readln(k);

sum:=ct*t+ck*k;

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