Podatek_pascal

program main; {<--wywala bledy przy duplikacie...........podatek....oryginał w c++(moj oczywiscie.. "http://pastebin.com/LfQ0g8A9"}

uses crt;

var  pojemnosc :    real;       {pojemność silnika samochodu}
    procent :   real;           {ile procent powinnien wynosic podatek}
    cena :      Integer;            {cena samochodu.}
    podatek :   real;           {podatek do zaplacenia}
    cenapodatek : real;         {suma ceny z podatkiem}

begin
WriteLn('Podaj cene samochodu: ');
ReadLn(cena);
WriteLn('Podaj pojemnosc silnika(zamist przecinka prosze wstawiac kropke. TY :D ): ');
ReadLn(pojemnosc);
if pojemnosc>1.2 then                               {warunek czy pojemnosc jest wieksza od 1.2}
      begin
           procent := 0.12;                         {przypisanie wartosci procentowej podatku}
            podatek := cena * procent;              {iloczyn ceny z procentem podatku.}
            cenapodatek := cena + podatek;          {suma ceny z podatkiem}
            WriteLn('. Cena samochodu wynosi: ',cena,'zl. Podatek wynosi: ',podatek:0:2,'zl. Cena samochodu z podatkiem wynosi: ',cenapodatek:0:2,'zl.');
            ReadLn;
      end
else
      begin
            procent := 0.10;                            {przypisanie wartosci procentowej podatku}
            podatek := cena * procent;              {iloczyn ceny z procentem podatku.}
            cenapodatek := cena + podatek;          {suma ceny z podatkiem}
            WriteLn('. Cena samochodu wynosi: ',cena,'zl. Podatek wynosi: ',podatek:0:2,'zl. Cena samochodu z podatkiem wynosi: ',cenapodatek:0:2,'zl.');
            ReadLn;
   end
end.