Compile and Execute Pascal Online

Program Nettolohn;
var
x,y: real;
begin 
write('Geben Sie Anzahl der Arbeitsstunden ein ');
read(x);
if x>=0 then 
begin
if X<12.5 then
begin 
y:= (x*12)*90/100;
Writeln(y:0:2);
end;
if (x>=12.5) and (x<40) then
begin 
y:= (x*12)*80/100;
writeln(y:0:2);
end;
if x>=40 then
begin
y:= (x*18)*80/100;
writeln(y:0:0);
end;
end
else 
Writeln('Die Zahlen müssen positiv sein')
End.