Синформатикой , желательно с рисунком вычислить значения объем куба для значений ребра а равных 0,5; 1; 1,5; 2, 5

Var 
a: real;
begin
a := 0.5;
while a <= 5 do
begin
writeln(a*a*a);
a := a + 0.5;
end;
end.