Programa.dpr 276 B

1234567891011121314151617181920
  1. program Programa;
  2. {$APPTYPE CONSOLE}
  3. var
  4. sueldo: Double;
  5. begin
  6. Write('Ingrese el sueldo: ');
  7. ReadLn(sueldo);
  8. if sueldo > 300 then
  9. { Inicia el bloque de flujo de la condición. }
  10. begin
  11. Write('Esta persona debe abonar impuestos!!');
  12. end;
  13. ReadLn;
  14. end.