Нужна помощь по написанию программ!

Задача 1.

Радиус окружности 5 метров.

Вычислить длину и площадь окружности.

радиус окружности R = (5) см

длинна окружности L = () см

площадь круга S = () см кв

Задача 2

Вычислить площадь кольца, внутренний радиус которого равен 20, а внешний числу r.

Задача 3

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

Вычисление стоимости покупки

Введи исходные данные:

Цена тетрадей; цена обложек; количество комплектов; количество карандашей; стоимость покупки.

1.

Const R=5;

Var L, S:real;

Begin

L:=2*Pi*R;

S:=Pi*sqr (R);

writeln ('Радиус окружности R = ', R, ' см');

writeln ('Длина окружности L = ', L:4:2, ' см');

writeln ('Площадь круга S = ', S:4:2, ' см кв.');

End.

2.

Const r1=20;

Var S1, S2, S, r:real;

Begin

writeln ('Введите внешний радиус');

readln (r);

S1:=Pi*sqr (r1);

S2:=Pi*sqr (r);

S:=S2-S1;

writeln ('Площадь кольца = ', S:4:2);

End.

3.

Var tet, ob, col, kar, ck, sum: real;

Begin

writeln ('Введите цену 1 тетради');

readln (tet);

writeln ('Введите цену 1 обложки');

readln (ob);

writeln ('Введите количество комплектов');

readln (col);

writeln ('Введите цену 1 карандаша');

readln (kar);

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

readln (ck);

sum: = (tet+ob) * col+kar*ck;

writeln ('Стоимость покупки = ', sum);

End.