Compile and Execute Pascal Online

Program Tax Reduction;
{This program will output the price for a product after discount in a set month}
     uses crt;
          const
          discrate=0.25;
          standardcost=25000;
      var
      custname,address,monthname: string;
      discount,total,discountrec: real;
      Begin
      clrscr;
      discountrec=0
      Writeln('Please enter your name');
      Readln(custname);
      Writeln('Please enter your address')
      Readln('address');
      Writeln('Enter the month you to rent boat');
      Readln('monthname');
      If monthname= 'April' then
         discountrec:= discrate*discountrec
         else
         discountrec:=0;
         total= standardcost-discountfee;
         endif
      Writeln('The custname name is custname'custname);
      Writeln('The custname name is address'address);
      Writeln('The discountfee you recieved',discountrec: 1:2');
      Readkey;
      
      
      End.