Текст задания

Составьте программу для вычисления выталкивающей силы, действующей на тело объемом V, наполовину погруженное в жидкость плотностью R

Исходный код программы

var
R,V,F:real;
begin
Write('R='); {запрашиваем плотность}
Readln(r);
Write('V='); {запрашиваем объем}
Readln(v);
F:=R*9.8*0.5*V;  {считаем силу}
Writeln('F=',F:4:2);
readln;
end.

Результат работы программы