помогите хоть какое нить задание сделать, чот вообще не понимаю
Answers & Comments
nadya283
Var a:integer; begin writeln('Введите сторону куба'); readln(a); writeln('Объем куба с ребром ',a,' равен — ',a*a*a); writeln('Площадь поверхности куба равна — ', 6*a*a); end.
Answers & Comments
begin
writeln('Введите сторону куба');
readln(a);
writeln('Объем куба с ребром ',a,' равен — ',a*a*a);
writeln('Площадь поверхности куба равна — ', 6*a*a);
end.