NET MAASI BULMA

program MaaS;
uses wincrt;
var
vergi,brut,Nmaas,Vorani:real;
begin
Vorani:=0.25;
write('Brut maas giriniz:');
readln(brut);
if brut>=1000000 then
begin
vergi:=brut*Vorani;
Nmaas:=brut-vergi;
writeln('NET MAAS=',Nmaas:12:2)
end
else
begin
Nmaas:=brut;
writeln('NET MAAS=',Nmaas:12:2)
end;
end.