Question

Помогите решить задачи, 8 класс(Pascal ABC)
Задача №3. Дан диаметр окружности d. Найти ее длину L = 3.14*d.
Задача №4. Дана длина ребра куба a. Найти объем куба V = a 3 и площадь его поверхности S = 6a 2 . Задача
№5. Дано расстояние в сантиметрах. Найти число полных метров и километров данного расстояния

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

//3

Var
 d:real;
begin
 readln(d);
 writeln(3.14*d);
end.

//4
Var
 a:real;
begin
 readln(a);
 writeln('V=',a*a*a);
 writeln('S=',6*sqr(a));
end.

//5
Var
 a:real;
begin
 readln(a);
 writeln(a/100,' м');
 writeln(a/100000,' км');
end.