pomoc s programom v pascale

program zasobnik gule;
const Pi = 3,14;
var r, V: real;
n, dni: integer;
begin
writeln ('Priemer gule v metroch, d = ');
readln (d:);

r:d/2;

V:=4/3*Pi*r*r*r;
writeln;
writeln('Objem v metroch kubickych V ='V:5:2);
writeln('Objem v litroch:'(V*1000)5:2);
writeln('Koľko osôb je v pusti:');
readln(n);

program zasobnik;
uses crt;
const Pi = 3.14;
var r, V, d, l, dni: real;
n: integer;
begin
clrscr;
writeln ('Priemer gule v metroch, d = ');
readln (d);

r:=d/2;

V:=4/3*Pi*r*r*r;
writeln;
writeln('Objem v metroch kubickych V =',V:5:2);
l := (V*1000);
writeln('Objem v litroch:',l:5:2);
writeln('Kolko osob je v pusti:');
readln(n);

dni  := l/10;
writeln('Dane mnozstvo tekutiny vystaci ',dni:5:0,'dni.');
readln;
end.

program zasobnik;
uses crt;
const Pi = 3.14;
var r, V, d, l, dni, pom: real;
n: integer;
begin
clrscr;
writeln ('Priemer gule v metroch, d = ');
readln (d);

r:=d/2;

V:=4/3*Pi*r*r*r;
writeln;
writeln('Objem v metroch kubickych V =',V:5:2);
l := (V*1000);
writeln('Objem v litroch: ',l:5:2);
writeln('Kolko osob je v pusti:');
readln(n);

pom  := l/10;
dni := pom/n;
writeln('Tekutina vystaci pre 1 cloveka ',pom:5:0,' dni.');
writeln('Tekutina vystaci pre ',n,' ludi ',dni:5:0,' dni.');
readln;
end.

program ZASOBNIK;
uses crt;
var
  r,V,d,dni: Real;
  n: Word;

BEGIN
  ClrScr;
  Write ('Priemer zasobnika v metroch: ');
  ReadLn (d);
  Write ('Kolko osob je v pusti?: ');
  ReadLn (n);
  r:=d/2;
  V:=4/3*Pi*r*r*r;
  dni:=V*100/n;
  WriteLn ('Objem v m3: ',V:5:2);
  WriteLn ('Objem v litroch: ',V*1e3:5:2);
  Write ('Tekutina vystaci pre ',n,' ludi ',dni:5:2,' dni.');
  ReadLn;

END.