Niezgodność w kodzie programu do obliczania pola i objętości stożka.

Witam
Mam prośbę a mianowicie czy mogł by mi sprawdzić ktoś czemu dany kod nie chce mi dzialac

program p2

uses
  crt;

const
  pi = 3.14;
var
  h, r, l : integer;
  P, V : real;

begin
  clrscr
    Writeln('Jest to program do liczenia pola i objętosci stozka');
  Writeln('Podaj wysokość stozka');
  write('h=');
  readln(h);
  Writeln('Podaj promien podstawy stozka');
  write('r=");
    readln(r);
    Writeln('Podaj twozaca stozka');
    write('l=');
    readln(l);
    P := pi * r * (r + l);
    V := (pi * (r * r) / 3) / h;
    Writeln('Pole=' P : 3 : 2);
    Writeln('Objetosc=' v : 3 : 2);
    readkey;
end.

Poprawiony znacznik code na konretny dla języka Pascal. I formatowanie. - olesio

Sofmatował byś kod i podał go w odpowiednich znacznikach to byś od razu wyłapał błędy. Kod poniżej się kompiluje prawidłowo. Nie wnikałem w jego poprawność obliczeniową. No i trzeba by przed wyświetleniem w konsoli konwertować polskie znaki. Użycie ClrScr miesza z kodowaniem nawet jeśli użyjemy do konwersji stringów AnsiToOEM. A jeżeli nie umiesz samodzielnie formatować kodu po ludzku, to wspomagaj się tym utilsem: http://olesio.eu/jcf

program p2;

uses
  crt;

const
  pi = 3.14;
var
  h, r, l : integer;
  P, V : real;
begin
  clrscr;
  Writeln('Jest to program do liczenia pola i objętosci stozka');
  Writeln('Podaj wysokość stozka');
  write('h=');
  readln(h);
  Writeln('Podaj promien podstawy stozka');
  write('r="');
  readln(r);
  Writeln('Podaj twozaca stozka');
  write('l=');
  readln(l);
  P := pi * r * (r + l);
  V := (pi * (r * r) / 3) / h;
  Writeln('Pole=', P : 3 : 2);
  Writeln('Objetosc=', v : 3 : 2);
  readkey;
end.

A wątek przenoszę do Newbie, bo dotyczy podstaw programowania w Pascalu, jak odpowiednie kończenie stringów ' i procedur ). W sumie nic więcej.

Także do kursu marsz! I ZAWSZE najpierw SAMODZIELNE kombinujesz z kodem DO BÓLU. Dopiero W OSTATECZNOŚCI piszesz na jakiekolwiek forum z pytaniem, uwzględniając zasady tegoż forum. Rzekłem.