Решить , 8 класс(pascal abc) №3. дан диаметр окружности d. найти ее длину l = 3.14*d. №4. дана длина ребра куба a. найти объем куба v = a 3 и площадь его поверхности s = 6a 2 . №5. дано расстояние в сантиметрах. найти число полных метров и километров данного расстояния

//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.