Calcular el sueldo

program nombre;
uses wincrt;
var
sueldo, sueldo_nuevo:real;
begin
writeln('ingrse sueldo');
readln(sueldo);
if sueldo<2070 then
sueldo_nuevo:=(sueldo*0.30)+sueldo;
writeln('su sueldo nuevo sera' ,sueldo_nuevo:5:2);
if sueldo>2070 then
sueldo_nuevo:=(sueldo*0.20)+sueldo;
writeln('su sueldo nuevo sera' ,sueldo_nuevo:5:2);
end.