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

Задача 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.